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ELEPHANT NEVER FORGETS. 



A full line of top- quality floppies, in virtually every ^ 'W and 8" model, for compatibility with virtually every computer on the market. 
Guaranteed to meet or exceed every itidustty standard, certified 100% error-free and problem-free, and to maintain its quality for at least IZ million passes 

(or over a lifetime of heavy-duty use). 

Contact Dennison Computer Supplies, Inc., 55 Providence Hiehway Norwood, MA 02062 or call toll-free '1-800-343-84'! 3. 
In Massachusetts, call collect (617) 769-8150. Telex 951-624. 




TURN YOUR HOME INTO THE 
HOTTEST ARCADE IN TOWN 



O'RILEY'S 
MINE" 

You're a mad 
Irishman digging 
your way through 
an abandoned mine 
filled with oil, 
coal, gold, rubies, 
diamonds — and 
hungry creatures. 
You'll need the luck 
of the Irish to sur- 
vive, but with so 
much at stake, it's 
a chance you're 
willing to take. 




MOON 
SHUTTLE" 

Your screen ex- 
plodes with life- 
threatening action 
as you pilot your 
Moon Shuttle 
through outer space 
in this home version 
of the Nichibutsu® 
favorite. Awaiting you 
is The Prince of Dark- 
ness and his forces, 
which mysteriously 
multiply! 




MOONSHUnLE- available for Alori* 
Radio Shock Color*, Commadore 64®, 
coming soon for Applet' 



POOYAN 

One of the 
biggest arcade 
game hits from 
Konomi is a game 
of fast action in 
life-ond-deoth en- 
counters. You battle a 
pack of hungry wolves 
eager to catch your de 
fenseless piglets. You'll 
need quick reflexes and 
a good arm in the new 
arcade hit from Datasoft 




POOYAN" available for Atori^, Radio 
shack Color*, Apple", coming soon for 
Commadore 64"' 



Our reputation as one of the premier game manufacturers 

assures you of the highest quality attainable in action, strategy 

and graphics. For the hottest titles in entertainment, keep your eye on the leader— DATASOFT. 

You'll Find The Best In Home Computer Software 

_ from 

Pooyan" is a trademark of Konami Industries Company, Ltd, 

O'Riley's Mine' and Dotosoft' are registered trademarks 
of Datasoft Inc. 



ZAXXON" 

Zaxxon has all the 
unique color graphics, 
super sound and unprece- 
dented 3-dimensional 
effects that made it the 
star of the arcades. 
Maneuver your ship 
through the state-of- 
the-art defenses of the 
floating fortress to 
come face-to-face 
with the deadly 
Zaxxon Robot. This 
is the official home 
version of the 
Segas arcade hit. 




ZAXXON" ovoiloble for Atari?, Apple 
Radio Shack Color' 



DaMisoft 



9421 Winnetka Avenue, Chatsworth, CA 9131 1 



(213) 701-5161 



« 1983 DATASOFT INC. 
Moon Shuttle " is a registered trademark of Nichibutsu, USA. 
ZAXXON" and Sega'"' are trademarks of Sega Enterprises, Inc. 

CIRCLE 150 ON READER SERVICE CARD 
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You'll never see Infocom's graphics 
on any computer screen. Because 
there's never been a computer built 
by man that could handle the images 
we produce. And, there never will be. 
We draw our graphics from the 
limitless imagery of your imagi- 
nation—a technology so power- 
ful, it makes any picture 
that's ever come out of a 
screen look like graffiti 
by comparison. And 
nobody knows how 
to unleash your 
imagination like 
Infocom. 
Through our 
prose, your 
imagination 
makes you part 
of our stories, 
in control of 
what you do 
and where you 
go— yet unable 
to predict or con- 
trol the course of 
events. You're con- 
fronted with situa- 
tions and logical puz- 
zles the like of which you won't 
find elsewhere . And you're immersed 
in rich environments alive with per- 
sonalities as real as any you'll meet 
in the flesh— yet all the more vivid 
because they're perceived directly by 
your mind's eye, not through your _ 
external senses. The method to this 
magic? We've found the way to plug 
our prose right into your psyche, and 
catapult you into a whole new 
dimension. 

Take some tough critics' words 
about our words. SOFTALK, for 
example, called ZORK® Ill's prose 
"far more graphic than any depiction 
yet achieved by an adventure with 
graphics." And the NEW YORK 



TIMES saw fit to print that our 
DEADLINE''^' is_ "an amazing feat 
of programming." Even a journal as 
video-oriented as ELECTRONIC 
GAMES found Infocom prose to be 
such an eye-opener, they named one 
of our games their Best Adventure 
of 1983. 

Better still, bring an Infocom game 
home with you. Discover firsthand 
why thousands upon thousands of 
discriminating game players keep 
turning everything we write into 
instantaneous bestsellers. 

Step up to Infocom. All words. No 
graffiti. The secret reaches of your 
mind are beckoning. A whole new 
dimension is in there waiting for you. 

(For more information on Infocom 
games contact: Infocom, Inc., P.O. 
Box 855, Garden City, NY 11530.) 




inFocom 

The next dimension. 

For your: Apple II, Atari, Commodore 64, CP/M 8," DEC Rainbow, 
DEC RT-11, IBM, MS-DOS 2.0, NEC APC, NEC PC-8000, Osborne, 
■n Professional, TI 99/4 A, TRS-80 Model I, TRS-80 Model III. 



At Last/.'/ A Real Flight Simulator!!! 

— From The Creators of HELLCAT ACE! 

A real flight simulator allows you the pilot to accomplish Takeoff s, 
Landings, Cross-Country Navigation, and Emergency Procedure practice 
under Clear (VFR), Cloudy (IFR), and Cross-Wind conditions, SOLO 
FLIGHT is such an advanced simulation that uses realistic three 
dimensional terrain graphics, actual configuration instrument panel, 
multiple air navigation maps, and accurate aircraft performance 
characteristics to provide the challenge, thrill, excitement, and joy of the 
flight experience!!! 



• Three Dimensional 
Terrain Graphics 



Multiple Airports 
and Runways 



• Dual Radio Naviga- 
tion Instruments 



Full Feature, Actual 
Configuration 
Instrument Panel 



• Multiple Air 
Navigation Charts 



• Instrument 
Approaches 




Takeoffs 
Landings 

• Cross-Country 
Navigation — Day, 
VFR and IFR 
Flying 

• Emergency 
Procedures Practice 

• Air Mail Delivery 
Game for 1-4 Players 

• Smooth Landing & 
Good Navigation 
Scoring 

• For All Atari and 
Commodore 64 
computers, disk or 
cassette . . . $34.95 

• Coming Soon for 
IBM-PC 
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Look for MicroProse's two new exciting real time combat simulations — MIG ALLEY ACE & NATO COMMANDER. 

Write or call for our Free Catalog. 

If you cannot find our games at your local store, you can order by MasterCard or VISA, Money Order, 
COD or Check, Add $2.50 for Postage and Handling. Maryland Residents add 5% Sales Tax. 



MicroProse Software 

DEALER INQUIRIES INVITED. 



10616 Beaver Dam Road, Hunt Valley, MD 21030 

(301) 667-1151 

ATARI is Ihe reciistered trademnrk of ATARI, Inc. 

Commodore! 64 is ihc regislered trademark of Comirodorc Business Mat hines, Inc. 

IBM-PC is Ihe registered trademark of inlemalJonal Business Mdctiiiws. Inc. 
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WATCH OUT ATARI ! 
AT-D2 HAS LANDED! 








IRAK'S floppy and hard disk drive systems for 
ttie Apple and IBM-PC are available at rrx^ny 
Computerland and ottner fine stores worldwide. 



. . .WITH IT'S FLEET OF THE MOST ADVANCED 
SINGLE AND DOUBLE DENSITY DRIVE SYSTEMS 
IN THE UNIVERSE - TOTALLY COMPATIBLE WITH 
ATARI* COMPUTER MODELS 400, 800, 600XL, 
1200XL, 1400XL, AND 1450XL. 

DOCK YOUR FAVORITE PRINTER DIRECTLY TO 
OUR DRIVE'S BUILT-IN PARALLEL PRINTER 
INTERFACE. THERE'S NO NEED TO BUY AN EX- 
PENSIVE ATARI 850 MODULE. 

THE COMMAND CONTROL PANEL FEATURES 
READ, WRITE AND DENSITY INDICATORS, A TRACK 
COUNTER TO LOCATE EVERY BIT OF YOUR DATA 
AND A TOUCH-SENSITIVE SWITCH TO PROTECT IT 

WARP SPEED OF UP TO 18 TIMES FASTER THAN 
ANY OTHER ATARI DRIVE IS ACHIEVED WITH OUR 
OPTIONAL TURBO-CHARGED SOFtWARE. 

AWESOME POWER — DESTROY A PLANET 
OR LEARN HOW ONE IS CREATED. BALANCE 
YOUR CHECKBOOK OR WRITE A BESTSELLER. 
LEARN A NEW LANGUAGE OR CREATE ONE 

IT'S MAGNIFICENTLY SIMPLEI — JUST PLUG IT 
INANDLIFT-OFFI 
■ Afan IS a registered rrademark of Atari. Inc 



TRAK GIVES YOU THE MOST STORAGE FOR 
YOUR DOLLAR! 




OUR FLAGSHIP, AT-D2, WITH TWICE THE STOR- 
AGE CAPACITY OF THE ATARI 810 DRIVE PLUS A 
PRINTER INTERFACE AND COMMAND CON- 
TROL PANEL, HAS A VALUE OF OVER $1000 YET 
COSTS LESS THAN S500 1 

SEE YOUR DEALER NOW FOR A TEST FLIGHT, OR 

call toll free: 1-800-323-4853 

in Illinois, call collect: 1-312-968-1716 
TWX 910-222-1848 
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ABOUT THE COVER 



No, it's not a real Atari graphics display, but a combination of computer 
printouts and special photographic effects. The landscape and mountains 
were drawn using Datasoft's Micropainter program. The planets and moons 
were generated from a sphere-drawing demo originally written by Tom Hud- 
son. Screen dumps of the landscape, mountains and spheres were made on a 
C.Itoh 85 10-P printer. These were cut apart and composited on white poster- 
board. A large negative was then shot of the composition. As with the covers 
of Issues 7 and 12, acetate was used to add color to the various geometric 
shapes. The negative was then placed on a sheet of glass and back-lit. Multiple 
exposures were used to "burn in" various light effects within the shot. The 
final result is a cover that could fool the eye of an Atari programmer: what 
graphics mode did they use to get that? D 
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by Brian Moriarty 



I was sifting through a pile of mail a few months 
ago, when I came across an intriguingly thick ship- 
ping envelope. It contained a draft for an article, a 
disk and the following cover letter: 

Dear Sir: 

Enclosed please find my submission for possible inclu- 
sion in your publication. It is a character set editor /tutorial 
that, quite frankly, rivals commercially available ones. 

I have also enclosed a stamped, self-addressed envelope 
so that the diskette may be returned. 

Sincerely, 
Vince Erceg 

"Another charset editor," I muttered as I pushed 
the disk into a drive and slammed BASIC into my 
800. Nearly every magazine that covers the Atari has 
published a character editor at one time or another 
(including this one), and the commercial market is 
flooded with utilities designed to do exactly the same 
thing. So I didn't expect much in the way of excite- 
ment as I typed RUN "D:FONT" and hit the return 
key. 

If you've read this far, you've probably guessed 
what happened. Create- A-Font had our program- 
ming staff hopping up and down with glee. Vince 
Erceg's utility combines a slick, utterly professional 
design with shameless visual gimmicks to make an 
otherwise boring chore fast and entertaining. If you 
do anything with redefined character sets, take the 
time to type in Create-A-Font. It's one of the nicest 
character editors ever created for the Atari. Need I 
add that Mr. Erceg's return envelope found its way 
into the Round File. 

We decided to make Create-A-Font the center- 
piece of an entire issue devoted to Atari computer 
graphics. Tom Hudson's Solid States is a 3D plot- 
ting package that lets you define any type of solid 
object and "look" at it from any perspective. 10/7 
Painter is a follow-up to Peter Budgell's Extra 
Graphics Mode article from Issue 15; it's a GTIA 
painting program that lets you create and save your 
own high-res Rembrandts on either disk or cassette. 

Tom Newdome's Bar Chart Subroutine offers 
business programmers a convenient way to display 
statistics without a lot of head-scratching. Sally 
Forth presents FPLOT, an impressively fast routine 



for 2-color plotting. And Kyle Peacock wraps up his 
four-part Fine Scrolling tutorial with an all-purpose 
utility you can install in your BASIC programs to 
achieve impressive Eastern Front-type visual ef- 
fects. 

We didn't skimp on our regular utilities this 
month, either. If you've been going crazy trying to 
ffind an 850 Interface Module for your Christmas 
printer, look over Paul Swanson's Low^ Cost Prin- 
ter Interface on page 36. It lets you hook up your 
printer using just two joystick ports (XL computer 
owners, take note!) for a total cash ©utlay of less than 
ten dollars. XL users will also appreciate Jerry 
White's XLDEMO, which highlights a couple o( 
features your skimpy XL owner's manual didn't tell 
you about. 

This month's games department introduces Den- 
nis Fox to the pages of ANALOG with Shooting 
Stars, an assembly-language endurance test that will 
set your teeth on edge. Joel Gluck insists that his 
Four Letter Words listing on page 42 is big and 
ugly, but that didn't stop it from earning him a round 
of applause at a recent Boston user group meeting. 
Parents should not overlook the educational poten- 
tial of FLW. 

Demand for reprints of our C:CHECK and 
D:CHECK2 articles has been so high that we 
decided to publish them again in this issue. If you're a 
new ANALOG reader, drop whatever you're doing 
and type in one or both of these programs imme- 
diately! It'll save you hours of frustration when de- 
bugging the other BASIC programs appearing in this 
and future issues. 

Looking for a demo to silence that neighbor who 
won't stop bragging about his new Commodore 64? 
Sit the poor sucker down in front of Craig Patchett's 
Stars 3D. Show him how short the program is. Then 
tell him all about display list interrupts and color 
indirection, the two features that make Atari's hard- 
ware second to none when it comes to fancy graphics. 
You may also wish to remind him that his jaw is still 
hanging open. 

Hope you enjoy ANALOG'S Atari Graphics 

Issue, n 
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Save 

loo's of hours 
orogrammiiig 

your Atari 

with the new Your BASIC Machine" 
Programming Package. 



"Your BASIC Machine" (YBM ) enables you 
to implement, modify or interface with your 
existing Atari computer-programs — swiftly 
easily and inexpensively We guarantee it. 

It's BASIC. The YBM package writes Atari 
programs that create and abstract information 
from data bases you set up. Since all YBM 
programs are written in bug-free, hassle-free 
BASIC, you can quickly interface them into any 
existing Atari sorts and statistical programs. All 
file organization, disk I/O and file structure are 
handled on disk smoothly and efiBciently 

Hims input into output... fast. 'Tour 
BASIC Machine" package includes: 

• Complete operating instructions 

• YBM source code 



• Complete flow chart of a generated program 
•YBM diskette 

'Your BASIC Machine" makes Atari program- 
ming problems — no problem, at just $59-95. 

Satisfaction guaranteed. We are so cer- 
tain that you will find "Your BASIC Machine" an 
invaluable ally in programming your Atari 
computer that we will promptly refund your 
S59.95 in fiall if you don't agree. 

Order by mail. Send cash, check or 
money order for $5995— or your (major) 
credit card number (and expiration date) to 
Somers Corporation, PC. Box 295, St. Mary's, 
OH 45885. 

Or Call: Grand Lakes Creations toll-free at 
1-800-537-1633. 



*Atari is a reg. TM of Warner Communications. 
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Thank you so much for going 
monthly with your publication. I 
seem to find problems in other 
magazines that I don't find in 
yours, such as 1) pages of correc- 
tions in future issues, 2) charac- 
ters that often don't resemble what 
I'm putting on the screen, 3) the 
frustration of different characters 
taking up different sizes of space, 
and 4) no method of checking 
programs for typing errors. It is 
really great to know that the best 
will be coming out to shine twice 
as much as it was before! 

Also, I'd like to say I agree with 
Neil Weinstock's letter in issue 
#14 concerning the lifespan of the 
Atari 1200XL, and those of us 
who got a rather raw deal by buy- 
ing one. A little bit of good (and 
fair) business on their part would 
be to give the owners of IZOOXL's 
a chance to upgrade to the newest 
line now out, and — speaking for 
myself — 1 would waste no time in 
buying a 1450XLD if the company 
behind it could demonstrate to me 
that it sincerely wishes me at least 
a couple of years before it discon- 
tinues the product I bought. 

Jim Slocum 

St. Petersburg, Florida 

Hexpad Update. 



I have been very pleased with 
the quality of your writers and of 
the contributed software. 
However, I have two observa- 
tions. 

First, the HEXPAD program 
(issue #14) is quite useful and 
tripled my input rate. I am a touch 
typist of long standing, and re- 
learning the replacement of the 
letter hex codes was something I 
decided not to tolerate. The 



letters "a" through "f" are all 
reachable by the left hand and do 
not interfere with the redefini- 
tion of right hand keys for the 
digits "0" through "6." The fol- 
lowing new Line 31013 will allow 
touch typists to retain at least the 
familiar left hand position for 
letters. Change Line 31013 to 

31813 DATA 32,183,106,107, 
188,117,105,111,97,98,99,1 
00,181,182,48,48,49,58,51, 
52,53,54,65,66,67,68,69,78 

The second point is minor, but 
still is an annoyance. Each time 
you publish a game in assembler, 
the BASIC code used to build the 
disk image uses the common name 
""D:AUTORUN.SYS." This ap- 
proach denies rapid access to DOS 
option "A" (directory listing) and 
assumes that each game will reside 
on a separate diskette. To over- 
come these "deficiencies," I modi- 
fy the filename to reference "D: 
gamename.L", where "gamename" 
is some descriptive name. The ".L" 
reminds my disk users to use DOS 
option "L" to "run" the game. 

Walter D. Lazear 
Fairfax, VA 

5200 Article Update. 
(ANALOG #15) 

Newer releases of the 5200 incor- 
porate some minor hardware 
changes. Controller ports 3 and 4 
have been eliminated, making 
POT4 through POT7, TRIG2, 
TRIG3, and bit 1 of CONSOL 
useless. A few of the connector 
pins have been redefined. Pin 2 of 
the I/O expansion connector now 
carries POKEY's Audio Out sig- 
nal. Three pins on the cartridge 
connector have changed to accomo- 
date the new 2600 adapter. The 



system clock, 02, is output on pin 
14, isolated through a diode. An 
alternate video input is taken from 
pin 24 and is also isolated through 
a diode. Pin 30 provides an alter- 
nate audio input. 

There is space on the newer 
boards for circuitry for a PAL 
(European TV standard) version 
of the 5200. Also, on power-up, 
the monitor program checks for 
the PAL version by examining the 
GTIA register PAL after step 2 of 
the initialization routine. It also 
checks the cartridge program for 
PAL compatibility. The byte at 
$BFE7 should read $02 if compat- 
ible, or $00 if not. This is the only 
important change to the monitor 
program. There are some addition- 
al hardware changes, but none af- 
^ fects the machine's operation from 
the programmer's view. 

Claus Buchholz 
Greenwich, CT 

Since I tried to write some really 
great programs with the informa- 
tion contained in Inside Atari 
Basic and didn't get far, I started 
to look around for some help. I 
was pleased to find ANALOG at 
my local book store. In it I found 
Space Assault and Observational 
Astronomy. I also found tons of 
adds, reviews, reports, and the 
helpful hints and information I 
need. Not only did I have a learn- 
ing tool, but I wound up with 
some great software for next to 
nothing. 

I sat down and typed in Space 
Assault in about four hours, debug- 
ged it (I only missed two numbers 
in a DATA line), and called my 
resident game experts (Tracy, 12 
and Billy, 10). They played the 
game and reported that the gun 
did not move fast enough. I fooled 
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around for awhile (read days) and 
finally found a cure. Once 1 got the 
gun going faster, it seemed only 
right that the game should get 
harder as it went. 

These are the changes I made. 



1165 IF 5C> 
B 1222 
1168 IF SO 
B 1239 
1163 IF 5C> 
B 1236 
1222 IF OIR 
SHIP+3.5 

1224 IF DIR 
5HIP-3.5 

1225 RETURN 
1230 IF DIR 
5HIP+4 
1232 IF DIR 
5HIP-4 
1235 RETURN 
1235 IF DIR 
SHIP+5 

1237 IF DIR 
5HIP-5 

1238 RETURN 



18080 THEN G05U 
28008 THEN G05U 
30008 THEN GOSU 
=1 THEN KSHIP=H 
=2 THEN X5HIP=H 

1 THEN KSHIP=X 
=2 THEN XSHIP=K 

=1 THEN XSHIP=K 
=2 THEN X5HIP=X 



I added to Hne 1720: 

1720 X=X+XP05C5TJ*2:V=Y+VP 
05{ST3»2 

I have one last question. I'd real- 
ly like to buy some fantasy and/or 
adventure games, but they all seem 
to be on disks. Now I know disks 
are better and faster than my 1010 
recorder, but I am not going to be 
buying a disk drive any time soon, 
if ever. I'm lucky I got the com- 
puter! And it seems to me, with 
interest picking up and prices go- 
ing down on personal computers, 
that more people like me will be in 
the market for products that don't 
cost a small fortune just to run. 
Where can I find some games on 
tape that do something more than 
blast aliens? 

Sincerely, 
Bill Moore 
Wilmington, DE 



Thanks for the kind words. It haji- 
pens that there are several reasonably 
good text adventures available on 
tape, including the entire Scott Adams 
Adventure Series from Adventure In- 
ternational. ANALOG '.s- own Ad- 
ventures in the 5th Dimension 
(Issue fjii) was specifically written 
ivith cassette users in mind; and we'll 
he publishing more tape-compatible 
adventures in the near future. Stay 
tuned! 

—B.M. 

I would like to put in a word 
about Kyle Peacock's review of 
Starbowl Football in Issue #13. 
After reading his review, I imme- 
diately went out and bought the 
game. However, I was all prepared 
to meet an incredible computer 
team. Insteaci, I found that the 
computer gave me the option of 
playing a fair "college" team, or 
an outstanding "pro" team. Of 
course, for starters, I chose the 
college team. I beat the team by 
three points on my very first try. Is 
this a new option? If not, I still 
hope that you publish this letter to 
inform my fellow game enthusiasts 
that, in Starbowl Football, they 
have the option of getting smeared 
(as Mr. Peacock was), or having a 
very close game against an average 
computer opponent. 

Chris Johnson 
Alexandria, VA 



Send letters to: 

Reader Comment 

P.O. Box 23 

Worcester, MA 01603 



Tvr 
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'ram-n-smash 



or 1 or 2 Simultaneous Players for ATARI Home 
Computers Requires 16K, 2 Joysticks, Cassette, Basic Cartridge 
ACCELERATED Computer Research 



INTRODUCTORY PRICE 



ONLY $10 



CASH. CHECK OH 
MONEY ORDEH 
(addS1.50forCO.D.) 



COST EFFECTIVE SOFTWARE 

BY 
"The Best Little Software House In Texas" 

HOMEBASE by soft SECTRE is a 
versalile dalabase program for Ihe iiome, small busi- 
ness or lab. In a USER FRIENDLY' MENU driven lormal 
HOMEBASE uliliffis TWENTY COMMANDS CREATE, 
ADD. LIST. CLIST. CHANGE. CONCATENATE 
SEARCH. SUM. SORT. DELETE, LABELS LOAD, 
PRINT, SAVE. DIRECTORY. HELP, DRIVE, AUDIO. 
LOWER CASE. END An opiional SECURITY CODE 
prevents unalhonzed dala lile relneval and manipula- 
lion. Opiional AUDIO ^'EEDBACK signals Ihe end oi a 
command response The ATARI version uses a 
MACHINE LANGUAGE SORTr 
HOMEBASE is ideal Ipr MAILING LISTS (we use il 
ourselves), household, insurance and equipmenl IN- 
VENTORIES. MAINTENANCE schedules, a PRESCRIP- 
TION hsl: relund COUPON and GROCERY lisis Ready- 
lo-use dala liles lor Ihese lasks are included Why buy 
several programs' Purchase Ihe ONE program Ihal will 
handle all ol ynur dalabase needs HOMEBASE by 
SOFT SECTRE will SAVE you TIME ana MONEY' 
SELECTRE by SOFT SECTRE is included in Ihe disk 
based package al nb addilional charge (a $2995 
value!) Disk DIRECTORIES and PROGRAMS are 
loaded wilh numeric key input allowing even Ihe most 
nexperienced person to easily operate the computer 
ATARI OR PET DISK 32K 549 95 
PET TAPE 16K $49.95 

Add $2 GO lor shipping. 

SOFT SECTRE 

PO BOX 1821. PLANO.TX 75074 
Send lor FREE catalog! VISA,' MasterCard WELCOMED 



Machine Language 

Made EASY 

For only $39.95 

EASY is a combination of over 60 macros 
and precisely written source code which 
ailows machine language to be coded with 
BASIC like commands. EASY supports IF 
THEN, DO LOOP, INTEGER MATH, I/O, 
GRAPHICS, PM GRAPHICS, FINE SCROLL- 
ING and more. 

This is ASSEIVIBLY code? 

10 GR 2 

20 PRINT 6, "EASY DEIVIO" 

30 INPUT 0, DATA 

40 COLOR DATA 

50 PLOT CX, CY 

60 DRAWTO 0, 9 

EASY comes on a disk containing libraries 
supporting AMAC® (ATARI® ) and MAC/65® 
(OSS® ) either of which are required to use 
EASY. EASY's detailed manual clearly and 
completely documents every macro command. 
Isn't it worth $39.95 to save weeks or maybe 
months on your next programming effort? 

ORDER SUPERware Dealer 

NOW! 2028 Kingsbouse Rd. Inquiries 

Silver Spring, MO 20904 Invited 
(301) 236-4459 

MC, VISA, AMX. Check, M.O. accepted. 
Include $2.00 shipping, MD residents add 5% tax. 
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by Lee Pappas 



Hurtling into the year of Big Brother, wave after 
wave of new Atari software is trying to rid you of 
what's left of your holiday spending money. My 
taking over this column is like a typical Nor'easter, 
except I'm buried in a blizzard of software along with 
the snow. 

INFOCOM continues to uphold their name on the 
top-10 countdown with Infidel, The Witness, 
Enchanter and Planetfall. The latter is worth the 
price for its packaging alone; it looks like a mission 
briefing kit from Robert Heinlein's Starship Troopers. 
All four adventures are superbly put together and 
continue Infocom's fine non-graphics adventure 
tradition. 

SIERRA ON-LINE is now shipping an Atari ver- 
sion of Ultima I, the super-popular Apple adven- 
ture game. BC's Qjaest for Tires is an arcade-style 
game, hopefully intended for the kiddies. On-Line's 
hottest hit in the ANALOG offices, Oil's Well 
(now on ROM as well as disk) turns you into "Pac 
Man on a stick" with added complications. (See Pat 
Kelley's review in this issue.) Homew^ord is On- 
Line's soon-to-be-released entry into the Atari word 
processor market. With its special graphics and joy- 
stick capabilities, this $49.95 program is touted as 
being especially easy to learn and operate. 




A new company to the Atari market, STARFIRE 
GAMES, is releasing Time Machine 1 and Global 
Thermonuclear War. In Time Machine, you 

pilot the fourth mission of a USAF/NASA experi- 
mental vehicle in search of the first three test pilots, 
who vanished into the forth dimension (you could 
say they had the right stuff at the wrong time!). War 
not only involves you and your Atari in World War 
III, but forces you to unscramble launching codes 
and to retarget the ICBMs, along with making 
retaliation decisions. Both games are on 48K disks. 




Infidel. 



Congo Bongo. 

ACTIVISION is now shipping River Raid and 
Kaboqm!, and IMAGIC's Moonsweeper is also 
available, along with Fathom, a graphics adventure. 
SIRIUS SOFTWARE has recently released Gruds 
In Space, a much better-than-average graphics adven- 
ture. And Bill Rogue's BIG FIVE SOFTWARE is 
ready to release Scraper Caper, a greatly expanded 
sequel to the adventures of Miner 2049er's Bounty 
Bob. 

SEGA is following up their Star Trek Simulator 
with a home version of the arcade hit Congo Bongo. 
This cartridge-based game lacks most of the screen- 
levels of its coin-op counterpart (only two scrolling 
screens). On level 1, you must avoid the green coco- 
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nuts hurtled by a whacked-out gorilla at the top of a 
series of "cliffs." As you hop over waterfalls and 
avoid monkeys gone bananas, you make your way to 
screen number 2. This is Frogger version one- 
hundred forty-seven, except now it's 3-D. 

BRODERBUND is gearing up to ship Lode 
Runner on disk, and Spare Change on disk and 
ROM. With more than 150 screens. Lode Runner 
has you wandering through passages avoiding mea- 
nies and picking up treasures. An extension of the 
game allows you to design your own screens and play 
them. Spare Change is a game with a different twist 
(almost a bizarre one). As an arcade owner, you must 
do whatever it is an arcade owner does and do it well. 
In Spare Change, this happens to be preventing the 
escape of your most popular arcade game characters. 
They "come to Ufe," figure it's time to split, and try 
to escape. It's up to you to stop'em. These two 
programs come after the release of Drol, one of those 
rare games that comes along and appears on ANA- 
LQG's lunchtime monitors in force. Be sure to read 
our review on page 115. 

New from EPYX is a cartridge update of Temple 
of Apshai called Gateway to Apshai, reviewed on 
page 34. Other new Epyx releases include Pitstop, 
Gunf ight and Seawolf . The latter two are licensed 
from Bally/Midway from their coin-op versions. A 
preview disk with demonstrations of these four 
games and Jumpman Jr. is available for only $2.50 
from Epyx. Silicon Warrior is a ROM cartridge for 
one to four players, resembling a Tic-Tac-Toe game 
with shooting, shields, black holes and robots. Two 
early video games from the arcade now translated to 
the Atari computer are Starfire, a primitive version 
of a Star Raiders-type game (remember the "Exidy" 
bonus ship?), and Fire One, one of the first sub/ 
torpedo games. These come two games on a cassette 
or disk, as do Gunfight and Seawolf. 




ADVENTURE INTERNATIONAL has a new 
game in release, AREX. This machine language 
program by John (Rally Speedway) Anderson pits 
you against enemies which must be neutralized as you 
progress through a maze of dungeons or an open 
arena. This game is available on disk or cassette. 

AUey-Oops is a 16K program with 8 levels of 
play. A takeoff on the good ol' bowling computer 
games, but here you'll have to be on the lookout for 
beer bottles, discarded gum on the floor, and other 
"dangerous" obstacles. It's from ARTWORX. 

From DATAMOST comes Mr. Robot And His 
Robot Factory, Cohen's Tower, The Tail of Beta 
Lyrae, Cosmic Tunnels and Monster Smash. 
These five arcade games should be out by the time 
you read this. INHOME SOFTWARE is shipping 
Captain Beeble, a 16K cartridge that is definitely 
challenging and fun (though I would have named it 
"Captain System Reset"). Multiple levels with 
explosion-inducing surprises will keep you on the 
edge of screaming as you avoid all of those close calls. 




Silicon Warrior. 



Captain Beeble. 

Droids is one of several new software releases 
from TG SOFTWARE. Nightshift, Abracadabra 
and Ozzy's Orchard wrap up their lineup of four 
arcade/action games. TG also markets a joystick for 
left or right handed players. SCREENPLAY'S Asy- 
lum is a 3-D scrolling graphic adventure made popu- 
lar on the IBM PC, and now available for Atari 
computers. It retails for $29.95 and runs in 48K. 
This company also has a Q*bert clone, Pogo Joe 
(only now you're hopping on cylinders, not cubes). 
Another arcade conversion. Blueprint from CBS 
ELECTRONICS, is also based on a Bally/Midway 
game. 

AVALON HILL'S TAC (Tactical Armor Com- 
mand) is a 48K disk where you command squads of 
infantry and tank groups. Dino Eggs by MICRO- 
FUN is a fast action game where you are transported 
back to prehistoric time. Your goal is to scale to the 
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top of cliffs containing dinosaur eggs, and bring them 
back to the 21st century. Death In The Caribbean, 
also by Microfun, is an adventure featuring high- 
resolution graphics. 

If it's sadistic games you crave, then try THORN 
EMI's Ore Attack. In this cartridge you protect your 
castle from the Ore hoards scaling the walls on 
ladders. As you dodge their crossbow bolts and 
daggers, you discover that nice heavy rocks dropped 
on their heads will punch their ticket. Later you'll 
find that boiling oil will cook their goose, and should 
these medieval hoods get too close, it's headchopping 
time using the handy-dandy sword provided for you. 
Other surprises make Ore Attack a different kind of 
video game. 
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Queen Of Hearts. 

Another adventure converted from the Apple, 
Prisoner II by EDU-WARE, is based on the 1960s 
British TV show starring Patrick McGoohan. This 
challenging product is reviewed on page 62. Flight 
Simulator II follows up SUBLOGIC's Night Mis- 
sion Pinball with an excellent representation of 
piloting a Piper Cherokee Archer II. 

Queen Of Hearts is a 48K disk-based pinball 
simulation from SSI's RAPIDFIRE division. This is 
one of the few pinball games that has a "tilt" feature 
and the ability to keep track of up to four players. 
DATASOFT is following up Pooyan with Dallas 
Quest, based on the TV series Dallas, and 3G 
COMPANY has a program designed to assist in pre- 
dicting the outcome of horse racing. 

Adding to the growing list of practical application 
software titles for the Atari is The Home Accoun- 
tant. CONTINENTAL SOFTWARE'S home fi- 
nance package can handle upwards of 200 categories, 
5 separate checking accounts, and has multiple print 
functions. 

The Atari Program Exchange is now offering Chris 
Crawford's Excalibur, an adventure/role playing 



scenario in which you are King Arthur, the ruler of 
Camelot. Though loaded with music, graphics and 
animation, the real star of this program is the aspect 
of humanity — morals and chivalry play an impor- 
tant part in the game play. Retail cost is $29.95 and 
requires 48K, disk drive, and a joystick. Also 
released recently from APX is Atspeller, a spelling 
checker for the AtariWriter Word Processing 
cartridge. This program requires a 32K disk system 
and lists at $39.95. A list in the programs "diction- 
ary" contains 30,000 words, to check against your 
saved text files. 

Translator Disk: a new hope. 

For those of you who purchased a 600XL, 800XL, 
or 1200XL and have had trouble running software, 
this disk (available from Atari) should end your 
problems. When booted up. The Translator Disk 
"flips away" the operating system in your XL 
Computer and replaces it with that of the 400/800 
series computers. This rids the computer of any in- 
compatibility problems, but remember — you have 
to boot this disk up every time a new program is to be 
used. 

New programs to give you the smarts. 

Educational software is moving into the market- 
place at the same rate games have. UNICORN 
SOFTWARE has four titles covering the full span of 
ages (1 through adult): Funbunch, Ships Ahoy, 
Ten Little Robots and Race Car 'Rithmetic. 
KOALA TECHNOLOGIES has several learning 
programs designed for their KoalaPad touch tablet 
that are oriented towards the younger set. Coloring 
Book, Spider Eater and Spellicopter will utilize 
games to teach their subjects in an entertaining 
manner which appeals to children. DESIGNWARE, 
the developer of Spellicopter, also markets Math 
Maze and Creature Creator for the Atari. Both 
educational games feature graphics to add excitement 
to the learning. 

A new company to the educational market, 
CAROUSEL SOFTWARE, has introduced three 
new products: Telly The Turtle, an expanded turtle 
graphics package; Simulated Computer II, a nice 
program that uses graphics to demonstrate how 
computers deal with the information given them; 
and Brain Strainers, comprising three separate 
games. From MAXIMUS comes Storyline and 
Safetyline, a pair of disk-based educational 
packages that combine animation, music and a 
separate cassette soundtrack. Storyline puts the 
young computer user in the fairytale stories of Rum- 
pelstiltskin and The Ugly Duckling, while Safetyline 
teaches safety through the character of Max the Cat. 
Both programs run in 48K. 

Adding to their ever-growing list of programs, 
DORSETT EDUCATIONAL SYSTEMS now has 
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over 60 courses covering a wide range of topics 
including reading and comprehension, electronics, 
accounting, business and a broad variety of math 
skills. JAY GEE is now shipping Attack Of The 
Spelling Bees, an arcade-style learning game where 
you guide your bee over letters, and "shoot" them to 
certain parts of the screen to complete words. This 
follows their previously released Devils Dare, a 
computerized version of the old Japanese "board" 
game, Go-Moku. 

Just in time to compete with the troubled Coleco 
Adam comes Atari's "Programming System" All-In- 
One Pak. This package includes a 16K 600XL Com- 
puter, 1010 Program Recorder, five cassettes com- 
prising the Invitation to Programming series 
(with appropriate workbooks), and two books: 
Inside Atari BASIC and loi Programming Tips & 
Tricks (with its own cassette). 

The "Writing System" All-In-One Pak is made up 
of the 600XL, 1027 Letter Quality Printer (with sta- 
tionery), the AtariWriter word processing car- 
tridge, and the book One Way to Better Writing. 

Finally, there is the "Entertainment System" All- 
In-One Pak, including Donkey Kong, the newly 
released Ms. Pacman cartridge, two joysticks and 
(not surprisingly) the 600XL. Also included is a 
booklet. Inside Secrets (tricks to improve your game 
scores) and a cartridge storage case. Prices are 
$379.95 for the Programmer, $599.95 for the 
Writer and $299.95 for the Entertainer. 




Ms. Pac-Man. 

Shipping (finally!) is Atari's Communicator II 
Package. This consists of the 835 Direct Connect 
Modem, Telelink II cartridge, and several free 
hours on The Source, Dow Jones and CompuServe 
networks. Telelink II features fine scrolling, a dis- 
play buffer, autodialing from the keyboard, and can 
store and transmit (at the touch of a key) your log-on 
sequence, including password. Look for Charles 
Bachand's review of this system in an upcoming issue 
of ANALOG. List price is $279.95. D 



Your "ONE STOP" Source 
for Computer Books 

You can rely on PACE for ONE STOP shopping for 
all your Microcomputer needs. We have thousands 
of books, programs and accessories— covering all 
the major brands of computers— even 60 different 
magazines! The ONE STOP friendly store. 



VISA/MASTERCARD ORDERS CALL (312) 595-3860 



BOOKS ON THE ATARI^ | BOOKS ON THE ATARI* 




n EASY GUIDE TO 400/800 
4795-000125 160Pgs $ 7.95 

n BASIC EXERCISES 
4795-000101 251 Pgs $12.95 

D YOUR FIRST PROGRAM 
4795-000130 1 50 Pgs S 9.95 

D COMPUTEl's 1st BOOK of ATARI 
4105-000000 184 Pgs $12.95 

D INSIDE ATARI DOS 
4105-000002 108 Pgs $19.95 

D COMPUTEl's 2nd Book of ATARI 
4105-000006 250 Pgs $12.95 

a COMPUTEl's 1st BOOK of ATARI 

GRAPHICS 
4105-000008 248 Pgs $12.95 

Q MAPPING THE ATARI Explanations 
of Atari memory locations (400/800) 
4105-000009 194 Pgs $14.95 

D ATARI BASIC SOURCEBOOK ' 
4105-000015 296 Pgs $12.95 

□ COMPUTEl's 1 St BOOK of ATARI 

GAMES 
4105-000014 232 Pgs $12.95 

D COMPUTERS FOR KIDS - ATARI 
41980OOO22 72 Pgs $ 4.95 

D THE CREATIVE ATARI How-To 
for tfie beginner or expert. 
4198-000034 243 Pgs $15.95 

D 31 NEW ATARI PROGRAMS FOR 

HOME, SCHOOLAND OFFICE 
4080-000018 95 Pgs $ 8.95 

DIOI PROGRAMMING TIPS AND 

TRICKS FOR THE ATARI 
4080-000022 126 Pgs $ 8.95 

D STIMULATING SIMULATIONS 

for the ATARI 
4410-005197 llSPgs $ 6.50 

□ ATARI IN WONDERLAND 22- 
programs for learning and fun. 
4410-005771 139 Pgs $ 9.95 
D YOUR ATARI COMPUTER Com- 
plete tiow-to guide book. 
4665-000065 458 Pgs SI 7.95 
D ATARI GAMES & RECREATIONS 
BASIC tectiniques & educational games 
4690-000242 338 Pgs $14.95 
n ATARI PILOT FOR BEGINNERS 
4690-000301 229 Pgs $14.95 
D INSIDE ATARI BASIC 
4690-003082 183 Pgs $12.95 
D THE VISICALC BOOK FOR ATARI 
4690-008393 298 Pgs $14.95 
D MOSTLY BASIC: ATARI Vol #1 
4760-022075 181 Pgs $12.95 
D MOSTLY BASIC: ATARI Vol #2 
4760-022092 $12.95 
D ATARI SOUND & GRAPHICS 
4925-009593 234 Pgs $ 9.95 



D PROGRAM WRITING WORKBOOK 
4080-000814 $ 4.95 

D 32 BASIC PROGRAMS for ATARI 

Business, educational and games. 
4250-000084 $19.95 

D HANDS ON BASIC - ATARI 
4525-049194 $19.95 

a KIDS S THE ATARI 
4560-000055 21 9 Pgs $19.95 

a 400/800 DISK GUIDE 
4665-000095 $ 7.95 

D INTRO TO ATARI GRAPHICS 
4665-000111 $16.95 

n THE ATARI ASSEMBLER 
4690-000236 $14.95 

D ATARI: A BEGINNER'S GUIDE 
4690-000271 $12.95 

D ATARI: A USER'S GUIDE 
4690-000323 $15.95 

D ATARI BASIC 

4690-049791 $13.95 

D HOW TO WIN ATARI COMPUT- 
ER GAMES 
4768-049558 $ 8.95 

D EASY GUIDE TO 400/800 
4795-000125 $ 7.95 

n YOUR FIRST ATARI PROGRAM 
4795-000130 S 9.95 

D ATARI BASIC 

4925-006496 $10.95 

D ATARI BASIC REFERENCE GUIDE 
Large card witti all BASIC info needed 
4925-087041 S 2.95 

D BASIC EXERCISES FOR THE 

ATARI 
4795-000101 251 Pgs $12.95 

D HOWTO USE ATARI COMPUTERS: 

An Introduction to 400/800/1 200 
4040-000235 65 Pgs $ 2.95 

D UNDERSTANDING GRAPHICS 
4040-000224 49 Pgs S 2.95 

a BASIC CODING SHEETS - Grapti 
sheets, pad of approx 40 stieets 
4080-000806 $ 2.95 



COMPUTER DUST COVERS 



For ATARI" 
D 41 08-000800 400 $11.98 

D 41 08-000810 410 $ 4.98 

4108-000820 800 $12.98 

04108-000830 810 $ 7.98 

4108-000845 820 $ 8.98 

4108-000850 822 $ 7.98 

4108-000860 825 $11.98 

4108-000865 825 w/rk $11.98 
D 41 08-000877 1200 $11.98 

Also for: APP LE' , COMMODORE', 
IBM", TEXAS INSTRUMENTS", 
RADIO SHACK* and MORE' 



NOW. . .PACE tias two stores! Our main store, at 345 East Irving Park Road in 
Wood Dale, just West of O'Hare Airport, (ptione 31 2-595-3860), and our new 
location at 1 FIRST NATIONAL PLAZA in Downtown Ctiicago, (pfione 31 2-372-2464). 



USE THIS AD AS YOUR HANDY ORDER FORM 



TO ORDER: Just check ttie block by ttie title of tfie book or item you want. Send, 
along with your NAME, STREET ADDRESS, CITY, STATE and ZIP CODE, and 
your Ceilified Check, fvloney Order, Personal Check (allow 2 weeks to clear), or 
your VISA or fulASTERCARD NUtvlBER, EXPIRATION DATE and INTERBANK 
NUIvlBER (Mm, Charge is $25) to: 



FT 



DEPARTMENT: A-C 
LOCK BOX 328, BENSENVILLE, IL60106 
micro softiuire centers Phone: (312) 595-3860 



L 



Please add S2 50 postage and handling on all orders Illinois residents add 6% tax. 
Foreign orders add 1 0% (Minimum $5 00), 



PLEASE SEND ME A COMPLETE BOOK * SOFTWARE LISTING FOR: 

O APPLE' O ATARI' D COMMODORE' O IBM D RADIO SHACK' 
OTEXAS INSTRUMENTS' O TIMEX /S INCLAIR' O Other I 
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STARS 




16K Cassette or Disk 



by Craig Patchett 



EDITOR'S NOTE: The article accomluinyinfj, this 
demonstration is intended [nimarily for advanced 
readers. The demo progran\ itself, however, can he typed 
in and enjoyed by anybody. 

Stars 3D illustrates a simple 3-dimensional 
graphics effect, produced by moving similar objects 
horizontally at different speeds. It uses a couple of 
assembly-language "tricks" to achieve the illusion of 
depth as efficiently as possible. 

Listing 1 is an ATARI BASIC program that 
POKEs the Stars 3D routine into memory and acti- 
vates it with a USR call. Listing 2 is the assembly- 
language source code, provided for programmers 
who want to see how the routine works. 

After entering Listing 1 and DrCHECKing it, 
SAVE the demo program to disk or tape and type 
RUN <return>. A few seconds later your screen 
will be filled with what appears to be 192 stars in 
several planes of motion. Believe it or not, the entire 
starfield is actually composed of only eight indivi- 
dual stars! 

How it's done. 

The dramatic display in Stars 3D is accomplished 
by using multiple LMS (Load Memory Scan) in- 
structions in the display list. Every DL instruction 
has its LMS option bit set. This allows me to have the 
same section of memory appear in more than one 
place on the screen. 



When I set up the display list, I randomly pick one 
of the eight star memory segments and store its ad- 
dress in an LMS instruction. Normally, this would 
mean that all the stars from a given memory segment 
would appear at the same x-position on the screen. I 
avoid this by adding a random offset (0-48) to each 
memory address, thereby spreading the stars all over 
the x-range. 

If you think about the offset I'm adding, you'll 
realize that an offset of, say, twenty will result in a 
mode line with twenty "orphan bytes" on the end 
(see Figure 1). This difficulty is corrected by as- 
signing 96 bytes to each star memory segment in- 
stead of 48. But this solution creates yet another 
problem: scrolling a star across 96 bytes when only 
48 are shown will cause the star to be invisible half 
the time (Figure 2). My solution is to give each 
memory segment two stars, separated by 48 bytes. 
Whenever one star moves off the edge of the screen, 
the other star will appear at the opposite side (Figure 
3). 



OFFSET = 20 



48 BYTES, ON SCREEN 



MODE LINE (48 BYTES) 20 EXTRA 



Figure L 
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48 BYTES ON SCREEN 



The star is off screen and will not appear on 
again until it reaches the right edge of the screen 
area. It must scroll 48 bytes to do this. 
Figure 2. 



48 BYTES ON SCREEN 



a) 



b) 



The star on the left scrolls off the screen. 
48 BYTES ON SCREEN 

The star on the right scrolls on. 
Figure 3. 



Eight luminances. 

Each DL instruction in Stars 3D has its display list 
interrupt (DLI) option bit set. A small DLI service 
routine allows me to put a different star color on 
every mode line. Instead of going for a broad spec- 
trum of colors, I decided to make each star a differ- 
ent shade of the same color, with slow-moving stars 
set to darker luminances than the fast movers. This 
further enhances the illusion of depth. 

No fine scrolling. 

Fine scrolling would have required handling each 
of the 192 mode lines separately. This takes a lot of 
processing time. Instead, I chose to manipulate each 
of the 16 stars (two in each memory segment) direct- 
ly, using the 6502 ASL instruction. When a star is 
shifted out of one byte it falls into the next, and when 
it shifts out of its memory segment it is stuck onto 
the other end. Each memory segment has its own 
timer which determines how quickly the stars in that 
segment will appear to move. 

Those are the basics behind Stars 3D. You should 
be able to find any details I skipped over by studying 
my source code. I hope this demo will show you how 
an unconventional approach can lead to terrific sav- 
ings in both processing time and memory (the entire 
program requires less than 2K, including the screen 
RAM), both of which are critical in today's high- 
performance graphics programs. D 



Listing 1. 

108 REH mtlCMMKMMlCMMKmCKXKKMKIClClCM 
118 REH « STARS 3D DEMO * 

128 REM » BY CRAIG PATCHETT » 
130 REM * ANALOG COMPUTING ttl6 * 
140 REM KMMKMKMKKlCltKlCKKKKKMKMKmt 

150 REM 

160 STflRT=14336:REM * S3800 HEX 
178 FOR IzSTART TO START+377 
180 READ BYTE:POKE I,BYTE:NEKT I 
150 ]<=USRCSTART) 



122 ST^ 32,49,56,32,145,56,169,0,141, 
200,2,169,7,162,56,160,38,32,92,228,16 
9, 253, 141, 0,2 

^i?o'*SI*,i^2'56-141.1.2,169,192,141,14 

3?^i:9i:il8?f6f'"''"'"''«'"^'^^''* 

^?? ?5I* If^l41.189,62,169,59,141,2e5 

.62,162,0,142,221,62,232,189,188,62,24 

,105,48,157,189,62,189 

230 DATA 204,62,105,0,157,205,62,169,0 

'l5?'ii4'??A222,224,16,208,229,169,189 

,133,204,169,59,133,205 

If^-SS^'' 160,255,162,3,169,0,145,204,1 

36,192,255,2e8,249,202,240,5,230;2e5;7 

6,106,56,162,0,189,189 

250 DATA 62,133,204,189,205,62,133,205 

,169,64,160,0,145,204,232,224,16,208,2 

35,96,169,119,133,204,169 

IS®,'*?IS 57,133,205,169,0,141,173,63,1 

60,3,169,206,145,204,280,208,2,236,245 

,173,10,210,41,7,72 

270 DATA 170,189,111,57,174,173,63,157 

,237,62,104,238,173,63,10,170,173,10,2 

10,41,63,201,48,176,247 

280 DATA 24,125,189,62,145,204,200,208 

,2,230,205,189,205,62,105,0,145,204,28 

0,208,2,230,205,192,67 

290 DATA 208,189,169,65,145,284,200,16 

9,119,145,204,141,48,2,280,169,57,145, 

204,141,49,2,169,35,141 

300 DATA 47,2,96,174,173,63,189,237,62 

,141,10,212,141,22,208,238,173,63,64,1 

62,13,32,58,57,32 

310 DATA 50,57,162,12,32,50,57,32,50,5 

''jit^i5*ii^i222,87,57,208,248,32,50,57 

,189, 99, 57, 157 

320 DATA 87,57,76,29,57,96,189,189,62, 

133,204,189,205,62,133,205,188,221,62, 

177,204,10,10,145,204 

330 DATA 144,15,169,1,136.192,255,288, 

2,168,47,145,204,152,157,221,62,96,8,8 

348 data' 3, 2, 2, 1,1, 8. 8, 6, 6, 4, 4, 3, 3, 2, 2 
,1,1,34,36,38,40,42.44.46,34,112.112,2 
40 



CHECKSUM DATA 
(See pp. 20-24.) 

100 DATA 90,594,809,30,102,89,35,33,51 

8,627,171,627,89,283,37,4046 

250 DATA 355,705,269,975,307,668,425.3 

18,819,18,4859 



Listing 2. 

; «««««««<«««««««««<««««* 

» STARS 3D DEMO * 

; * BY CRAIG PATCHEn * 

; Systen equates 



eiie 
ei2e 

8138 
8148 
8156 
8168 
8178 
8188 
8198 



8218 
8228 
8238 
8248 
8258 
8268 
8278 
8288 



^DMCTL 

NMIEN: 

iWNDOM = 

14SYNC = 

SDLSTL 

VDSLST 

COLPFB 

COL0R4 

SETVa^ 

XI7VBL 



= f822F 
■■ $D48E 
= $D28A 
ID48A 
= $8238 
= «828e 
= $0816 
= $82C8 
= *E45C 
= «E462 



Zero-page equate 
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8298 


t 

2 


1866 


LDA STRTPH,X 


6366 


INORCT = *CC ! ^or indirect addressing 


1878 


STA INDRCT+1 


6310 


f 


1688 


LDA «64 


8328 


«= $3888 


1698 


LDY »8 


8330 


J 


1168 


STA ( INDRCT) ,Y 


8346 


; Set things going 


1118 


INX 


8358 


Initil 


1128 


CPX #16 


6366 


1138 


»€ STRBR4 


8378 


JSR STRINI ; set up stars 


1146 


RTS 


8388 


JSR DLSINI ! set up display list 


1158 ; 




8398 


LDA #8 ; set background color 


1168 ; 


Initialize display list 


8488 


STA C0L0R4 


1178 ; 




8418 


LDA »7 : set up VBldiK 
LDX INBIMWIU 


1188 DLSINI 


8428 


1196 


LDA «DLISTi255 ; set up ^or indirect 


8438 


LDY «VBUWK&255 


1288 


STA INDRCT ; addressing 


8448 


JSR SETVBU 


1218 


LDA «DL I ST/256 


8456 


LDA IIOLI{i255 ; get DLIs going 


1226 


STA INDRCT+1 


8468 


STA yOSLST 


1238 


LDA «8 ; get index ready 


8478 


LDA «DLI/256 


1246 


STA INDEX 


8488 


STA yOSLST+l 


1258 


LDY US 


8498 


LDA #192 


1260 DLSBR4 


6568 


STA (*IIEN 


1278 


LDA «*CE ; miC 14, DLI, LMS line 


8518 ALLDON 


1286 


STA (INDRCT), Y 


8528 


JMP ALLDON 1 let things run 


1298 


INY 


8538 


\ 


1386 


&iE DLSBRl 


8548 


; VBLANK routine 


1318 


INC INDRCT+1 


8558 


1 


1328 DLSBRl 


8546 \JB[MK 


1336 


LDA RANOm ; pick star type 


8578 


JSR mmi ; take care o-f star moyeraent 


1346 


WDtt7 


8588 


LDA «8 ; reset index 


1358 


PW 


8598 


ETA INDEX 


1368 


TAX 


8666 


JMP XITVBL ; back to system 


1378 


LDA MANCOL,X ; tell STRCOL what color 


8616 


! 


1388 


LDX INDK ; this line is 


8626 


; Initialize stars 


1398 


STA STRCOL ,X 


8638 


% 


1488 


PLA 


8646 STRINI 


1416 


INC INDEX 


8656 


LDA «STRLfN&255 | set up STRTPL/H arrays 


1426 


ASL A ; times two so we skip over 


8668 


STA STRTPL 


1438 


TAX i two screen widths... 


8678 


LDA 8STRLIN.'256 


1448 DLSBR2 


8688 


STA STRTPH 


1458 


LDA RANDOM : pick random of-fset into 


8698 


LDX #6 


1468 


AND 1(63 ; line 


8788 


STX STRPOS 


1478 


CMP #48 ; make sure it's less than 


8718 


INX 


1488 


BCS DLSBR2 : a screen width 


8728 


STRBRl 


1498 


CLC 


8738 


LDA STRTPL-1 ,X ; make each address a screen 


1568 


ADC STRTPL.X ; ...here instead of one 
STA (INDRCf),Y ; put it into display list 


8748 


CLC ; width more than the one 


1518 


8758 


ADC m ; before 


1528 


INY 


8768 


STA STRTPL ,X' 


1536 


m£ DLSBR5 


8778 


LDA STRTPH- 1 ,X 


1546 


INC INDRCT+! 


8788 


ADC U 


1556 DLSBR5 


8798 


STA STRTPH, X 


1566 


LDA STRTPH, X 


8888 


LDA «8 


1578 


ADC «8 


6818 


STA STRPOS, X 


1586 


STA (1NDRCT),Y 


8828 


INX 


1598 


INY 


8838 


CPX «16 


1686 


B€ DLSBR6 


8848 


mE STRBRl 


1618 


INC INDRCT+I 


8856 


LDA 1ISTRLM255 ; clear star ineinory 


1628 DLSBR6 


8866 


STA INORCT 


1636 


CPY 1167 ; 192 lines done, finish up 


8870 


LDA #STRL IN/256 


1646 


&JE DLSBR4 


6388 


STA INDRCT+1 


1658 


LDA #$41 


8398 
8988 


LDY #255 
LDX «3 


1660 
1678 


STA ( INDRCT) ,Y 
INY 


8918 


LDA #8 


1688 


LDA «DLISTi255 


6928 


STRBR2 


1698 


STA ( INDRCT) ,Y 


8958 


STA (INORCT), Y 


1760 


STA SDLSTL 


8946 


DEY 


1716 


INY 


8958 


CPY 1255 


1728 


LDA #DL1 ST/256 


8968 


^E STRBR2 


1736 


STA ( INDRCT), Y 


8978 


DEX 


1746 


STA SDLSTL+1 


0988 


BEQ STRBR3 


1758 


LDA #$23 ; give us a wide screen 


e9?B 


INC INDRCT+1 


1766 


STA SDMCTL 


1806 


JMP STRBR2 


1776 


RTS 


1918 STRBR3 


1786 : 




1626 
1836 


LDX M ; give each line a star 
3TRBR4 


1798 ; 
1868 ; 


Display list interrupt routine 


1848 


LDA STRTPL ,X 


1816 DLl 


1858 


STA INDRCT 


1828 


LDX INDEX ; what line are we on? 



1838 
1848 
1858 
1868 
1870 
1888 
1898 
1988 
1918 
1928 
1939 
1948 
1958 
1968 
1979 
1988 
1998 
2888 
2818 
2828 
2838 
2848 
2858 
2868 
2878 
2888 
2898 
2188 
2118 
2128 
2138 
2148 
2158 
2168 
2178 
2188 
2198 
2288 
2218 
2228 
2238 
2248 
2258 
2268 
2279 
2280 
2298 
2380 
2318 
2328 
2330 
2348 
2358 
2360 
2370 
2388 
2398 
2400 
2410 
2428 
2438 
2448 
2458 
2460 
2470 
2488 
2498 
2508 
2519 
2520 
2538 
2548 
2550 
2560 
2579 
2588 
2590 
2680 



LDA STRCOL,X ; load this line's color 



; wai t -for end o-f last 1 ine 

; store color 

; get ready -for next 1 ine 



; move fastest star 
; and its twin 

; -for the rest... 



STA USYNC 
STA COLPF0 
INC INDEX 
RTI 

; Timer routine 

I^TDUN 

LDX #13 

JSR SCROLL 

JSR SCROLL 

LDX «12 

JSR SCROLL 

JSR SCROLL 
CNTBRl 

DEX 

BMI CNTRET 

DEC TIMER, X ; ...countdown timer 

m£ CNTBRl 

JSR SCROLL ; scroll if ready 

LDA T1MARY,X ; and reset timer 

STA TIHER.X 

JMP CNTBRl 
CNTRET 

RTS 

■ 

I Star scroll routine 

SCROLL 

LDA STRTPL,X ; set up for indirect addressing 

STA INDRCT 

LDA STRTPH.X 

STA INDRCT+1 

LDY STRPQS.X ; get star position 

LDA (INDRCt),Y : get byte with star in it 

ASL A ; Shift star left one 

ASL A 

STA ( INDRCT) ,Y ; put it back 

BCC SCRBRl ; did it fail off byte? 

LDA 111 ; if 50, put it in next one 

DEr 

CPY 1(255 ; did it fall off screen? 

BNE SCRBR2 

LDY S47 ; if so, put it on other end 
SCRBR2 

STA (1N0RCT),Y 

TYA 

STA STRPOS,X ; reraenber where it is now 
SCRBRl 

RTS 

ilMER 

.BYTE 8,8,6,6,4,4 ; timers for scrolling 

.BYTE 3,3,2,2,1,1 
TIWRY 

.BYTE 8,8,6,6,4,4 ; values to reset timers 

.BYTE 3,3,2,2,1,1 
hWNCOL 

.BYTE $22,$24,$26 ; star colors 

.BYTE $28,$2A,$2C 

.BYTE $2E,$22 



5list 



.BYTE $7fl,*70,*F9 ; display list 
«= «+579 



J+763 



STRLIN 

«= 
STRTPL 

»= «+16 
STRTPH 

♦= *+16 
STRPOS 

*= J+16 
STRCOL 

»= *+192 
INDEX 

«= »+l 



star (screen) memory 
addresses of beginning of 
each star line 
position of star on line 
color of each 1 ine 
used to index into STRCOL 



Presen ts: 
(^ M e Q a H i t 



Me Q 3l F o n t 

The Complete Program Lister 
and Graphics Durriper- 

By Randy DelliriQer and Richard Roqnlie 
< XL ENT ■' s Star Pr oor arrime p s ) 



Alloys you to list ALL 
control and OKBl characters 
to your i>rinttr in any of KIKE 
foots provided, or create your 
om vith any foot editor. 



Dump your GRAPHICS 8 screens 
(created irtth Hicro Painter, 
etc.] to the printer in any of 
THREE sizes (garter, half, 
and full paye.) 



For use with Prowriter, KEC or Epson w/ Graftrax printers 
48K disk onlSJi SfJL^.^S 



____ OMPUTER 

SJssisted 

©ATH 

Ij^ROGRAM 



X 



by 

Johnny 

Masuda 



Orioinally written for Johnny's daughter, this is 
tbe'BEST isath drill proorani written lor the ATARI. 
Easily played by eiereentary students. Multiple 
skill levels make it a challenge to older children 
Use your keyboard or joystick. 

32K disk or tape onX n^f S^i^.-^^s 

AAAAAAAAA 

Mode Mixer" 1 •& 2 

by Margie Bliss and Jerry Kw i t 

Lets you combine all ATARI qraphics modes to create 
custom display lists. Mode Mixer 1 qenerates 
ERROR-FREE BASIC code for insertion into your 
programs. Mode Mixer 2 qenerates the actual 
Display List. Includes FREE strategic warship game 
Excellent tutorial style documentation 

48K d i sk o n 1 !W S^ .1. -a- . -^ S 



Add *2.00 for Shippinq and Handlinq 

Add *1.50 for- C.OTD. orders 

VA residents add 4V; sales tax 

Send Check or Money Order to: 
XLENT Software 
P.O. Box 5228 
Spr ingf ield, UA 22150 

24-Hour Phone: <703) 644-8S8J 

Dealer Inquiries Welcome 
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D:CHECK 2 



16K Disk 



by Istvan Mohos and Tom Hudson 



When typing programs into your computer from 
ANALOG Computing, there is always a 
chance of making a mistake. D:CHECK2 will help 
you find such errors very easily. Type in the 
accompanying program and SAVE it. Follow the 
instructions below to check D:CHECK2 as you 
would any other program. 

CHECKing your typing. 

1 . Type in the program listing desired from 
the magazine. Visually check it for obvious 
errors (missing lines, etc.) 

2. LIST the program to be checked to disk. 
Use the command: 

LI5T ■■D:PROGNAME" 

3. LOAD D:CHECK2 and RUN it. 

4. D:CHECK2 will ask for a filename. 
Respond: 

D:PROGNAHE 
and press RETURN. 

5 . D:CHECK2 will ask for an issue number. 
Just type the issue number and press RETURN. 

6. D:CHECK2 will execute. The screen will 
go black in order to speed up the program. 

7. When D:CHECK2 finishes, it will display 
final instructions. At this time you should type 
NEW and press RETURN. 

8. When D:CHECK2 executed, it created a 
BASIC file on disk called BUG. ENTER it into 
your computer with the command: 

ENTER "D:BUG" 
This file should match the "CHECKSUM 
DATA" printed after the program listing you are 
checking. The following example shows how to 
check for errors. 

Magazine checksum data. 

285,633,442,453,23,31,2957 

168 bara 82, 34, 64, 73, 347, 195,287, 84, is 

6,368,59,40,98,9,342,2382 

318 DflTft 65,356,181,25,547 



D:CHECK2 output. 



le DftTfl 34,455,234,22,55,38,244,45,114 

,285,633,442,453,23,31,3188 

168 DflTfl 82,94,64,73,347,199,287,84,15 

6,368,59,48,98,9,342,2382 

318 DftTfl 65,181,34,288 



Each line of the program being checked has its 
own checksum value. If any characters in the line are 
incorrect, the checksum value will be different from 
the corresponding value in the magazine. The 
checksum data is set up so that there are 15 
checksum values in each line, with the I6th value 
containing the total of the checksums. 

The line number of the checksum line tells which 
line number is first in the checksum group. In the 
example above, the first line checked in the first 
checksum line is 10, and its checksum is 34. The first 
line checked in the second checksum line is 160, and 
its checksum is 82. The first line checked in the third 
checksum line is 310, and its checksum is 65. 

Let's assume the CHECKSUM DATA above was 
listed in the magazine, and you typed in the program 
and checked it with D:CHECK2. 

The first thing to do would be to look at the total 
of the values in the first line. This value should be 
2957, as shown in the magazine CHECKSUM 
DATA. However, in the results in the BUG file, the 
total is 3108. This means that there is an error in the 
15 checksum values in this line. Comparing the 
magazine checksums to the BUG checksums, we find 
that the seventh checksum is 244 in the BUG data, 
and should be 93. This means that there is an error in 
the seventh line of the program. Note the error and 
continue checking. The rest of the line is correct, so 
we go on to the second line. 

Now we check the total of the second line of 
checksum data. The total of 2302 in our BUG file 
matches the total in the magazine, so we can go on to 
the third checksum line. 
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The third checksum line is different from the 
others in that it only checks four lines. This is 
because it is at the end of the program, and the 
program did not have an even multiple of 15 lines. 
The line is checked the same as the others. As you 
can see, the total of the line should be 547, but is 
only 200 in the BUG file. Looking at the BUG file, 
you will notice that there is one less checksum value 
(the 356 in the magazine checksum data). This 
means that the first line in the program after line 3 10 
is missing. The last checksum in this line is also 
incorrect. It is a 34 and should be 25. This means 
that the third line after line 310 in the program is 
incorrect. 

To summarize, there were 3 errors in the program 
we checked. Two errors were caused by mistakes in 
the lines, and a third appeared because a whole line 
was missing. 

Once you have noted all errors, type NEW and 
press RETURN. This erases the D:CHECK2 
program. Next, bring the program being checked 
into memory by typing: 

ENTER "DiPROGMftHE" 

If the program had errors, correct the lines in 
error. If there were no errors, the program is correct 
and ready to run. D 



le REM 33133 DEBUGGING AXD 

BY I5TUAM M0H05 
20 HEM UER5I0N 2 MODS BY TOM HUDSON 
38 GRAPHICS 8:? :? "This run will L IST 

data stateiwnts with the nane: UHM 
, to the disk." 

48 ? :? "The rinra DATA is created by ew 
aluating each character of a user prog 
ran, LiSTed to disk.":? 
58 DIM FI5C15J 
68 CLOSE ttl:? "ENTER FILENAME"; :INPUT 

FI$ 

78 PIK=PEEKC559J :Zre:REM [*liL-JH:1A« 

88 ? :? "ENTER ISSUE NUMBER"; : TRftP 88: 

INPUT ISSUE 

90 TRAP e0:OPEN ttl,4,8,FlS 

106 ON K GOTO 180,288 

110 ? "«":? "DISABLING SCREEN. . .STAND 

BY...":FOR 1=1 TO 880:NEKT I:POKE 559, 

Z:REM debug before poking 

120 LINECOUNT=Z:DIM lStl26J 

130 TRAP 158:INPUT ttl; IS : LINECOUNT=LIN 

ECOUNT+1 

140 GOTO 130 

150 CLOSE ttl:Q=INTtLINEC0UNT/15}:DIM C 

CLINEC0UHT3,RCQJ,SSC53 : IF CLINECOUNT^Z 

OR 1S=""J THEN 530 
160 IF ASCtlSCl,lJ3<48 OR ASCClSfl,lJJ 
>57 THEN 538 
178 K=:l:GOTO 98 

180 RANGE::Z:LINE=Z:FOR 1=1 TO 5:S5CI,I 
)=" ":NEXT I 
190 COUNT=Z 

2©0 INPUT tti;lS:T=l:COUNT=COUNT+l 
210 IF I5CT,TJ<>" " THEN SS IT, T3 =IS f T, 
T3 :T=T+l:60T0 218 
220 LINE=UAL(SS3 

230 R(RANGE]=LINE:RaNGE=RANGE+l 
240 TRAP 270: INPUT ttl;l5 

250 COUNT=COUNT+l:IF C0UNT=15 THEN 198 
260 GOTO 240 

270 CLOSE «l:K=2:G0T0 98 
280 FOR 1=1 TO LINECOUNT:CHECKSUM=Z 



298 GET ttl, NUMBER :PRODUCT=X#NUI«ER: CHE 

CKSUM=CHECKSUM+PROOUCT:K=X+l:IF H=4 TH 

EN H=l 

300 IF NUMBER=155 THEN 328 

310 GOTO 298 

328 CHECKSUM=CHECKSUM-1000»INT CCHECKSU 

M/100O) :CtI3=CHECKSUM:IF ISSUE>9 THEN 

K=2 

330 NEXT I 

348 CLOSE ttl: OPEN ttl,8, 0,"0 :BUG":LINE= 

RCZ) :ITEM=Z 

358 C0UNT=15:T0TAL=Z:IF LINEC0UNT<15 T 

HEN COUNT=LINECOUNT 

360 PRINT »l;LIHE;" DATA "; 

370 FOR 1=1 TO COUNT :DATUM=C(i5»ITEM+I 

J :PRINT ttl;DATUM;",": :TOTAL=TOTAL+DATU 

M:NEXT I 

380 PRINT ttl; TOTAL 

390 ITEM=ITEM+l:LINEC0UNT=LINEC0UNT-15 

:IF LINECOUNKl THEN 420 

400 LINE=RCITEMJ 

410 GOTO 350 

420 CLOSE ttl:POKE 559, PIK 

438 ? "M3T0 check f^lB data against pri 

nted data statements, type NEW. Th 

en type:" 

448 ? "ENTER "; CHRS 134) ; "D : BUGGHEDE! . 

Type LIST after the 
READY proMpt." 

450 ? :? "The line nuMber of each data 
statenentcoincides with the first lin 
e of the" 

460 ? "user prograi* which the data sta 
tement evaluates." 

470 ? "NUHbers within each data state« 
ent represent consecutive lines of 
the user progran." 
480 ? "The last nuwb er i s the total." 
490 ? :? "Check the Ifet-H nuMber of eac 
h state- Ment against the printed ver 
sion;" 

580 ? "only in case of a discrepancy c 
heck each nunber in the data statewe 
nt." 

510 ? "Make note of the lines containi 
ng the b ugs. T hen ENTER ";CHRSC34J ;"D : 
yourprogldlUild:)" 

528 ? "to Make the corrections . ":END 
530 POKE 559, PIK:? "isiS":? "Your typed- 
in prograi* was not properlyLISTed to d 
isk." 

540 ? :? "Please list your progran to 
disk, thenRUN ";CHRS t34) ; "D :CHECK";CHR 
SC34J;" again. ":CLR :END 



CHECKSUM DATA 

18 DATA 44,815,767,524,686,389,806,850 

, 86 , 721 , 921 , 593 , 591 , 784 , 974 , 9471 

168 DATA 482,125,389,696,567,797,442,5 

61,238,89,717,216,943,541,299,7994 

318 DATA 719,711,741,427,244,435,288,5 

84,553,441,711,499,803,322,515,7993 

468 DATA 246,684,486,232,123,700,488,7 

74,588,4145 



(For Atari cassette owners who wish to co7\firm the accu- 
racy of their programs, see C:CHECK, next page.) 
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C:CHECK 



16K Cassette 



by Istvan Mohos and Tom Hudson 



When typing programs into your computer from 
ANALOG Computing, there is always a 
chance of making a mistake. C:CHECK will help 
you find such errors very easily. Type in the 
accompanying program and SAVE it. Follow the 
instructions below to check C:CHECK as you 
would any other program. 

CHECKing your typing. 

1 . Type in the program listing from the magazine. 
Visually check it for obvious errors (missing lines, 
etc.). 

2. LIST the program to be checked to cassette. 
Use the command: 

LIST "C:" 

3. LOAD C:CHECK and RUN it. 

4. C:CHECK will ask you ifyou want the output 
to go to the screen or printer. Type S for screen or P 
for printer and press RETURN. 

5. C:CHECK will ask for an issue number. Just 
type the issue number and press RETURN. 

6. Position the tape to the beginning of the 
program to be checked and press PLAY on the 
program recorder. Press RETURN. 

7. C:CHECK will begin reading the program 
from tape and generate a checksum table. This data 
should mpcch the "CHECKSUM DATA" printed 
after the program listing you are checking. The 
following example shows how to check for errors. 

Magazine checksum data. 

18 DflTA 34,455,234,22,55,38,93,45,114, 

285,633,442,453,23,31,2957 

168 DAXa 82,94,64,73,347,199,287,84,15 

6,368,59,40,98,9,342,2382 

319 DOTfl 65,356,101,25,547 

• 

C:CHECK output. 

10 DflTfl 34,455,234,22,55,38,244,45,114 

,285,633,442,453,23,31,3108 

160 DflTft 82,94,64,73,347,199,287,84,15 

6,368,59,40,98,9,342,2302 

310 DftTfl 65,101,34,200 



Each line of the program being checked has its 
own checksum value. If any characters in the line are 
incorrect, the checksum value will be different from 
the corresponding value in the magazine. The 
checksum data is set up so that there are 15 
checksum values in each line with the 16th value 
containing the total of the checksums. 

The line number of the checksum line tells which 
line number is first in the checksum group. In the 
example above, the first line checked in the 
checksum line is 10, and its checksum is 34. The first 
line checked in the second checksum line is 160, and 
its checksum is 82. The first line checked in the third 
checksum line is 310, and its checksum is 65. 

Let's assume the CHECKSUM DATA above was 
listed in the magazine, and you typed in the program 
and checked it with C:CHECK. 

The first thing to do would be to look at the total 
of the values in the first line. This value should be 
2957, as shown in the magazine CHECKSUM 
DATA. However, in the results in the C:CHECK 
output, the total is 3108. This means that there is an 
error in the 15 checksum values in this line. 
Comparing the magazine checksums to the 
C:CHECK output, we find that the seventh 
checksum is 244 in the C:CHECK data, and should 
be 93 . This means that there is an error in the seventh 
line of the program. Note the error and continue 
checking. The rest of the line is correct, so we go on 
to the second line. 

Now we check the total of the second line of 
checksum data. The total of 2302 in our CrCHECK 
data matches the total in the magazine, so we can go 
on to the third checksum line. 

The third checksum line is different from the 
others in that it only checks four lines. This is 
because it is at the end of the program, and the 
program did not have an even multiple of 15 lines. 
The line is checked the same as the others. As you 
can see, the total of the line should be 547, but is 
only 200 in the C:CHECK data. Looking at the 
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C:CHECK output, you will notice that there is one 
less checksum value (the 356 in the magazine 
checksum data). This means that the first line in the 
program after line 310 is missing. The last checksum 
in this line is also incorrect. It is a 34 and should be 
25 . This means that the third line after line 310 in the 
program is incorrect. 

To summarize, there were 3 errors in the program 
we checked. Two errors were caused by mistakes in 
the lines, and a third appeared because a whole line 
was missing. 

Once you have noted all errors, type NEW and 
press RETURN. This erases the C:CHECK 
program. Next, bring the program being checked 
into memory by positioning the tape and typing: 
ENTER "C:" 

If the program had errors, correct the lines in 
error. If there were no errors, the program is correct 
and ready to run. D 

Basic listing. 



CHECKSUM DATA 

258 DATA 764,922,11,168,375,783,384,25 
9.534,898,875,136,732,361,7114 



188 REM li'.lM'A DEBUGGING AID 

BY ISTUAN M0H05 
118 REM VERSION 2 MODS AND CASSETTE 
128 REM VERSION BY TOM HUDSON 
138 GRAPHICS 8:? :? "This run will LIS 
T data statewents to the screen or 
printer," 

148 ? :? "This DATA is created by eval 
uating each character of a user pro 
graM, LISTed to tape.":? 
158 DIM 0UTS(13,IS(128J,CRS{1J 
168 ? "OUTPUT TO ^REEN OR [3BINTER";:I 
NPUT OUTS: IF OUT$<>"S" AND OUTS<>"P" T 
HEN 168 

178 IF OUTS="S" THEN OPEN »2,8,8,"E:": 
GOTO 288 

188 CLOSE tt2:? "QREADY PRINTER AND PRE 
SS amDni";: INPUT CR$ 
198 TRAP 188:0PEN a2,8,8,"P:" 
288 ? :? "ENTER ISSUE NUMBER"; :TRAP 28 

8:INPUT ISSUE 

218 ? :? "READY TAPE AND PRESS UillLLI" 

; :OPEN t»l,4,8,"C:":? :? 

228 Z=e:LINEC0UNT=Z:PLIN=Z:X=2 

238 TRAP 348: INPUT ttl, IS : LINECOUNT=LIN 

ECOUNTfl : LINUM=VAL CIS tl . 5 J ) 

248 NLCKrNLCK+l:IF NLCKM AND NLCK<16 

THEN 298 

258 IF LINECOUNT::l THEN 288 

268 ? »2; TOTAL :NLCK-1 

278 IF 0UTS="S" THEN_PLIN£PLIN+1:IF PL 

IN=18 THEN ? "PRESS l:l*<ll;i;i TO CONTINUE 

"; :INPUT CRS:PLIN=8 

288 TOTAL=Z:? tt2;LIMUM;" DATA •' ; 

298 CHKSUM=Z:IF IS5UE>9 THEN X=2 

388 FOR 1=1 TO LEN (ISJ : PRODUCT=X»ASC CI 

S CI , 13 ) : CHKSUM=CHKSUM+PRODUCT : X=K+1 : IF 

X=4 THEN X=l 
318 NEXT I:CHKSUM=CHKSUM+X*155:X=X+l:I 
F X=4 THEN X=l 

328 CHKSUM=CHKSUM-1888»INT CCHKSUM/1888 
1 

338 ? tt2;CHKSUMj","; :TOTAL=TOTAL+CHKSU 
M:GOTO 238 

348 CLOSE »l:IF LINECOUNT=Z THEN 378 
358 ? tt2jT0TAL 
368 CLOSE tt2:END 

378 ? "US":? "Your typed-in program wa 
s not proper lyLISTed to tape." 
388 ? :? "Please LIST your program to 
tape, thenRUN ";CHRSC34) ;"CHECK";CHRSC 
34);" again. ":CL05E tt2:CLR :EHD 
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LEARNIT 


THE 
C-O-M-P-U-T-E-R-I-Z-E-D 
'♦Kflashcard method of learning «t4' 


• FACTS •KNOWLEDGE •ANSWERS 


^ can be entered then brought back to help 
you learn , remember ft anoctate 

^ an ingenious HINJ feature helps you recall & 
associate by giving only selected parts of a 
fact or answer whenever you ask for it 

^ cards can be used in reverse order, back side 
shown first, (excellant for engllsh4» foreign 
language learning ) 

^ cards can be sorted, changed, erased, added, 
stored & more 

^ vou select either self or computer scoring 

♦ missed cards can be selected out for rerun 
as often as you decide 

will run on Apple 11+ with 48k or Apple He 


send $26.95 (postage included) for disc & 
manual to TELEMETRICS p.o. box 606 
Arab, Al. 35016 

—Alabama residents add$1.75 sales taxi^ 
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by Braden E. Griffin, M.D. 



I find myself in a quandary. An abundance of ex- 
cellent educational software is sitting by my compu- 
ter, but because of limited magazine space and time, 
much of it cannot be reviewed. New products will get 
a cursory review (no pun intended) in a monthly 
column by Lee Pappas. In-depth evaluation of selec- 
ted educational programs will appear in this space. 

Now that the weather is worsening, I have greater 
access to my expert testers. It is impossible to get a 
fourteen year old boy or an eleven year old girl, with 
or without their friends, into the house when it is 
nice outside. The same is true for the pre-schoolers 
in my neighborhood, who are usually quite excited 
to come in and try Dr. Brad's new game. Once in the 
house and with homework out of the way, all I have 
to compete with is The A Team or Archon. Not only 
is a child's response essential in evaluating 
educational software, it makes the entire process 
easier. Their grasp of a program's goals and 
mechanics is infinitely superior to mine. Play testing, 
or "learn testing" with formulation of an opinion on 
a product, has been an added educational experience 
for them. 

I am beginning to get a feel about providing a 
useful service to readers without showing product- 
specific bias. I would not like to ignore a good pro- 
gram because a brand new, sparkling educational 



package of a similar nature just arrived. For the 
moment, I would like to work on a theme concept 
for each month's column. Examples might include 
the following: math, language skills, typing tutors, 
geography, computer literacy, "oldies but goodies," 
and adventures. Reviewing programs of similar 
theme in the same issue may provide readers with a 
better idea of which ones meet their needs. In 
addition to the theme-related reviews, a "wild card" 
selection will be reviewed. This will be a product 
which does not fit into a particular theme, or one so 
good that I cannot wait to tell you about it. It also 
provides the editors with an opportunity to cut back 
on my column when there is a space crunch. If a wild 
card selection does not appear in a column, it should 
surface sooner or later. 

Suggestions for specific themes or other com- 
ments concerning this column would be appreciated. 
(I already have a copy of Strunk and White's The 
Elements of Style, thank you.) Being in a bit of a 
vacuum, I have the urge to yell out, "Hey Mom! 
How'm I doing?" 

Ars gratia artis. 

I'm not going to try to convince you of the import- 
ance of art in education. Nor am I going to discuss 
computer art and whether it has merit. Once past 
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the age of fingerpainting, many of us have ceased ex- 
pressing ourselves artistically. The programs 
reviewed here will rekindle those hidden talents in 
the older of us, and initiate the same in the young. 
We can create a masterpiece .... or not. Still, no 
paper is wasted. Proposition #X has resulted in the 
reduction, even elimination, of art and music 
education in many of our schools. Although the 
prospects look gloomy, these computerized ventures 
into the world of art offer some hope. 

Three recently available art programs will be 
evaluated and compared. I will try to highlight the 
unique capabilities of each. 

All three programs have similar basic functions. 
An integral part of each program is the MENU. The 
menus of Micro Illustrator and Fun With Art 
consist of graphic representations of the various 
functions accessed by the cursor. Paint has a menu 
with alphabetic characters as mnemonics to 
delineate its different modes. The menus are 
extremely conducive to quick and easy manipulation 
of several graphic techniques. The ease with which 
one alternates between the drawing screen and menu 
and the ability to select different design modes "on 
the fly" eliminate much potential frustration. Any 
child of school age can sit down and immediately 
begin using and enjoying any of these three 
programs. 
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Micro Illustrator. 

The ability to DRAW is central to any program of 
this type. Use of the KoalaPad Touch Tablet makes 
Micro Illustrator unique. Although the other two 
use joysticks. Fun With Art is more like drawing 
with a pen or pencil, while Paint gives the feeling of 
painting with a brush. Several brush stroke widths 
and a number of different styles of brush tips are 
available to budding artists. ERASING is simple, but 
protected from accidental loss by requiring a 
confirmatory "yes" to the now classic "Are you 
sure?" from the computer. Other common features 
include modes which FRAME or outline, draw a 



straight LINE between two points, and draw 
CIRCLES and RECTANGLES of different sizes. 
The FILL command allows one to fill a geometric 
shape with an endless variety of colors or designs. 
Not only is this a powerful tool, but it is great fun to 
watch as one fills distinct areas with brilliant colors. 




uwwtwwww 



Paint. 

If drawing is a manifestation of the body, then 
most certainly color is the soul. The capacity to 
select from one hundred and twenty-eight colors and 
explore various color combinations within the same 
picture is a prime example of the flexibility of these 
programs. Mixing colors, varying shades, and 
altering background colors with a variety of textures 
and patterns set this apart from conventional art. 

The ZOOM or magnifying mode gives one the 
opportunity to view and alter a picture one pixel at a 
time. This feature allows for meticulous detail. It is 
remarkable to see a picture or design up close and 
notice how it differs with the change of perspective. 
The work of the French Impressionists with 
pointillism is brought into (or out of) focus, and 
adds to one's appreciation of their work. 

Paint's pictures can be stored only on diskettes, 
while the other two offer both tape and diskette 
storage capabilities. These utilities are easily accessed 
from the menu and permit formatting a disk at any 
point. None has the ability to produce a hard copy 
with a printer. Micro Illustrator and Fun With 
Art include information on the use of the created 
pictures with other programs. There is extensive 
documentation and even a tutorial on disk covering 
programming techniques included with the 
KoalaPad Touch Tablet. 

Different Strokes. 

When Yogi Berra's son. Dale, was asked abouthis 
father's knack for malapropisms and his own 
seemingly genetic predisposition to the same, he 
replied, "Our similarities are different!" The advan- 
tages and disadvantages of each of these programs 
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will be discussed. Any mention of unique features 
refers only to the comparison of the three programs 
at hand. 

Fun With Art. 
This cartridge-based program does not offer a 
large variety of brush styles. Color selection and 
change are a little more burdensome than with the 
other two. However, it is the only one of the three to 
have a text mode with which large or small sized 
letters are typed on the screen. It also has the singular 
capability of transferring parts of a picture(blocks) 
to another portion of the screen. Saving just a 
segment of a picture to tape or disk is possible only 
with this product. 
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Fun With Art. 

The block transfer mode enables one to append an 
image, zoom in on a block's contents or produce a 
mirror image. 

The ability to set color priorities is also unique to 
Fun With Art. 

The four basic colors can be set to draw over or 
under each other, depending on their respective 
color height or priority. The simplicity afforded with 
a cartridge makes this a particularly attractive pack- 
age for young children. 

Paint. 

The inability to use these pictures in other 
programs is a significant detraction. I suspect there is 
a way to accomplish this, but there is no supporting 
documentation for such. The lack of the mirror 
image makes creation of intricate, symmetrical 
designs difficult, if not impossible. 

There are many attributes. Eighty-one different 
styles and sizes of brush strokes are available. Being 
able to vary brush speed is a nice touch. The ability 
to internally or externally fill an area is found only in 
this program. If one wants to view a number of 
"paintings" sequentially, the ART SHOW function 
allows selection of up to twenty-four different 
pictures to be shown in a continuous display. 



A one hundred and forty-seven page book 
accompanies this program. It was written for 
children and is exceptional. Documentation on the 
use of the software is adequate. Chapters on 
computer functions, imaging, computer artists, and 
a potpourri of art history are included. The highlight 
of the book is the chapter entitled "Idea Shop." The 
twenty pages of this chapter, designed to stimulate 
the imagination, suggest painting a lie, or peace, or 
pride, or making a painting to make one dizzy. Clever 
and informative, this book is a real bonus. 

Micro Illustrator. 

The only negative aspect of this package is the 
cost. The KoalaPad Touch Tablet is a lot more ex- 
pensive than a joystick, but is there ever a big differ- 
ence. Drawing on the touch tablet with finger or 
stylus is a joy. The ability to create lines that radiate 
from a single point is a distinctive feature. The lines, 
shapes, and other images are very sharp. The best 
drawn circle is found here, and is as easy as pi(sic) — 
(sick!) to use. There is an option in the color menu 
which changes any single color in a picture to a 
moving rainbow of colors. It is a dramatic special 
effect. 

The mirror function may be used with most other 
modes and allows one to draw frames, circles, rays, 
etc. and have exact replicas in all four corners. This 
feature, along with the fill mode and use of a variety 
of colors and patterns, makes for the creation of an 
unlimited number of distinctive designs. 

All three of these graphics programs are enjoyable 
and educational. They are easy enough to be used by 
some pre-schoolers. No one will tire of them, no 
matter what age. As my "testers" were rigorously 
performing their duties, the only problem I 
encountered was getting them to stop drawing with 
one program and get on to the next. Whether these 
programs develop artistic ability or just stimulate the 
imagination, drawing and painting with them is 
relaxing and fun. D 

KOALA MICRO ILLUSTRATOR 
KOALA TECHNOLOGIES 
3100 Patrick Henry Drive 
Santa Clara, CA 95050 
16K/32K Catridge/Disk $99.00 

PAINT 

RESTON SOFTWARE 
11480 Sunset Hills Rd. 
Reston, VA 22090 
48K(BASIC) Disk $39.95 

FUN WITH ART 

EPYX COMPUTER SOFTWARE 

1043 Kiel Court 

Sunnyvale, CA 94089 

32K Cartridge $39.95 



ATARI SINGS YOUR FAVORITE SONGS!!! 

THE Original VOICE BOX Speech Synthesizer by the ALIEN GROUP has received rove reviews: 

MICRO COMPUTING-"The VOICE" BOX injects an endearing personality to your computer. The possibilities are enormous." 

COMPUTE-"The VOICE BOX offers more human-like tones and does not blank out the screen." 

CREATIVE COMPUTING-"English text and phonetic code may be 

freely intermixed rather than requiring separate modes as is the case 

v\^ithout exception with every other speech system. A mode called 

talking face displays an animated face with impressive lip sync 

animation." 

ANTIC-"There is a great potential for teaching children to spell and |i i 

an added dimension to games overall. I believe the VOICE BOX is 

well worth the price tag." 

ANAL£)G-"For AlARI owners who want to add speeth to their 

programs, the Alien Group VOICE BOX is probably the best ' 

choice." 

POPULAR SCIENCE-"The speech quality is excellent. Besides 

creating speech, the software has a bit of fun with graphics." 

and on the new VOICE BOX 1 1 ^ ' 

TIME MAGAZINE-"Machine of the Year" "The VOICE BOX by the 
Alien Group enables an ATARI to say aloud anything typed on its iKirnoDriPATc tuc ciKir-iM<- mi**AKi caz-c 

keyboard in any language. It also sings "Amazing Grace" and '"'iStO ySSr JrIIIKSs SJd SSe? 

"When I'm 64" or anything else that anyone wants to teach it. 





VOICE BOX II 
Speech & Singing Synthesizer 



To order by mail send a check or money order to the ALIEN GROUP 

for $169. 



THE ALIEN GROUP 

27 West 23rd Street 
New York, NY 10010 



(212)741-1770 



The New VOICE BOX II for ATARI plugs into the serial port of the ATARI 
400/800 with sound coming out of the TV/monitor. 48K DISK is re- 
quired. It has all of the features of the original VOICE BOX plus many 
exciting new hardware and software features: 

• The ability to sing with voice and 3 part music. 

• A library of 30 famous songs. 

• A com prehensi ve m usic system that a I lows the user to easi ly enter or 
modify new songs. 

• Software that can convert the bottom two rows of the ATARI keyboard 
into a piano with a range of 3'/2 octaves using the shift and control 
keys. 

• Programmable musical sound effects such as tremolo, vibrato, glis- 
sando and click track. 

• A singing human face with lip-sync animation designed by Jerry 
White. 

• A talking or singing ALIEN face with software that allows the user to 
change the face and 8 mouth patterns as he sees fit. 

• The ability to speak with inflection and feeling. 

• Can speak in a foreign language with correct foreign spelling as 
input. 

• A talk and spell program by Ron Kramer. Users can program any 
vocabulary for this spelling game. In fact, this program can even 
speak in a foreign language like French, where the user must spell 
the correct word in English, or vice versa. 

• GREEN GOBLINS-A talking arcade game by John Wilson. 

• Random Sentence Generator-An amusing grammar game that 
helps teach school children to identify ports of speech and recognize 
a variety of sentence structures. 

• NUMBER SPEAK-A subroutine by Scott Matthews that converts up to 
a 9 digit number into normal English pronunciation. Ideal for build- 
ing your own math gomes. 

• STUD POKER-A talking poker game by Jerry White. 

• The screen never blanks out while talking or singing. 
•Singing or speaking subroutines can be incorporated into your 

programs, requiring as little as 100 bytes of RAM plus 5 bytes for 
each word. 

• Price $169.00 includes VOICE BOX II and all of the above software. 

• Inquire about our discounts for educational institutions. 



ALSO AVAILABLE AT LEADING COMPUTER STORES THROUGHOUT THE WORLD. 

Atari is a registered traclemarl< of Worner Communications. 
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CROSSWORD MAGIC 

Softsmith Corp. 

1431 Doolittle Drive, San Leandro, CA 94577 

48K Disk $49.95 

by Braden E. Griffin, M.D. 

Crossword Magic allows one to create a puzzle 
from a size 3 boxes by 3 boxes, to as large as 20 by 20. 
An option exists to choose the puzzle size before 
starting or to use the automatic puzzle sizing feature. 1 
much preferred the latter. By simply typing a word and 
hitting RETURN, it is entered into a displayed puzzle 
grid. As subsequent words are entered, they are 
automatically interconnected with words already in 
the puzzle. If a particular word does not fit, it is 
stored away for future use. A word may be relocated 
to other available spots as desired. After all the 
words have been entered, clues for each word may be 
typed in. Clues may be as long as ninety characters 
and can be reviewed and retyped whenever one 
wishes. The puzzle may be saved to either the Cross- 
word Magic disk (maximum of twenty puzzles) or 
any blank disk. An incomplete puzzle may be saved 
and completed later. 
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Crossword Magic. 

There are seven options available. First is the 
CREATE mode, as discussed above. Additionally, 
one may COMPLETE an incomplete, previously 
saved puzzle, DELETE any puzzle from a disk, or 
TRANSFER puzzles from one disk to another 
(primarily for back-up purposes). An EDIT feature 
is provided enabling one to alter a completed puzzle. 
More words may be added or clues retyped; how- 
ever, words already in the puzzle grid cannot be 
changed. Any completed puzzle may be PLAYED on 
the computer by simply typing letters onto the 
screen grid. The ARROW KEYS move the cursor 
about. PRINTing a hard copy of the puzzle is this 



program's most choice feature. The puzzle grid is 
reproduced with appropriate numbering of letter 
squares and clues. A pause allows one to advance the 
paper, after which, the solution is printed. Most 
standard printers are compatible, with two minor 
exceptions. The Microline 82A and 83A printers 
require the "Okigraph" ROM upgrade kit, and the A 
Epson MX-80 printer requires the "Graftrax" ROM 
upgrade kit. The final product is quite authentic and 
professional looking. 

A bitter kvetch. 

So why does Crossword Magic fall short of satisfy- 
ing the true crossword aficionado? As each word is 
entered, it is interconnected with words already in 
the puzzle. The program will not permit the forma- 
tion of words not entered or incompletely formed. 
This eliminates the creation of the solid block of 
words typically seen in standard crossword puzzles. 
For example, if the word "Atari" were entered as one 
across and "analog" as one down an "o" could not 
be inserted as the second letter of two down, even 
though it would spell "to" one way and "no" the 
other. In this case, the word "to" would be inserted 
using the "o" in "analog" as its final letter. The 
beauty of the standard crossword puzzle is in the 
unusual combinations necessary to accomplish this. 

Life is a four-letter word. 

Now, the good news. As mentioned above Cross- 
word Magic does function as an excellent teaching 
aid. My first exposure came prior to my daugh- 
ter's first spelling test of the term. A fifteen-word 
vocabulary with simple definitions from the back of 
the book made creation of a puzzle a snap. In about 
ten minutes, I had created a way for her to study her 
words, both the spelling and the definitions, while 
having fun. Variations of the same words on another 
puzzle helped to continue the review. As a sidelight, I 
made several copies of the puzzle for her classmates. 
Not only was she proud of her "clever" father, but 
her teacher told her how nice it was to have a father 
take such an interest in his child's schoolwork. Well, 
Softsmith gets credit for the "clever" part. The 
second occasion came with my son's confrontation 
with the periodic table. With this program, I was 
able to create a number of puzzle variations using the 
elements and their symbols. It made what first 
seemed drudgery an enjoyable learning experience. 
In the process, my son learned how never to forget 
the symbol for gold (Au). "Aaa. . You! Want some 
gold?" Anyway, both did well on their respective 
tests and we now have crossword puzzles all over the 
house on just about every subject; and on just about 
every piece of furniture, my wife says! 

In summary. Crossword Magic is well done and 
has made learning in our house a lot more fun. Isn't 
that the way it should be? D 



JUMPMAN'S A GREAT GAME. 
BUT YOU'VE GOT TO WATCH YOUR STER 




Meet the Alienators. A fiend- 
ish bunch who've planted bombs 
throughout your Jupiter Command 
Headquarters. 

Your job? Use your lightning 
speed to scale ladders, scurry 
across girders, climb ropes and race 
through 30 levels to defuse the bombs before they go off. 

That's the kind of hot, non-stop action we've 
packed into the award-winningf best-selling Jumpmanl" 
and into Jumpman Jr.',"our new cartridge version with 
12 all-new, different and exciting screens. 

Both games force you to make tough choices. 
Should you avoid that Alienator, climb to the top 

*1983 C.E.S. award winner. 



and try to work your way down, or try to hurdle 
him and defuse the bombs closest to you 
before they go off? 

If you move fast you'll earn extra lives. 
But if you're not careful, it's a long way down. 

So jump to it. And find out why Jumpman 
and Jumpman Jr. are on a level all their own. 

One to four players; 8 speeds; joystick 
control. Jumpman has 30 screens. Jumpman Jr. 
has 12 screens. 




snumGiGMtas for theactioii-gamc puyer. 
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SUBROUTINE 



16K Cassette or Disk 



by Thomas P. Newdotne 



The advent of computer processing has brought 
the capabiUty to provide a quick analysis of data via a 
graphic display. One type of display, the bar chart, is 
commonly used for displaying data that has values 
occuring at discrete intervals. The quarterly 
dividend of a given stock, the annual rainfall at a 
specific location, and the amount of money spent per 
month on food by a family are a few of many pos- 
sible examples. 

The following program, written as a subroutine, 
can be used to display a bar chart of data supplied by 
a user's program. The data is plotted against one of 
three different time intervals, with the user's 
program determining the range of the vertical axis of 
the plot. Included in the listing is a short program 
which demonstrates the use of the subroutine. 

The three different time intervals which data may 
be plotted against are: 

Type 1: The horizontal axis is divided into 

24 monthly increments; 

Type 2: The horizontal axis is divided into 28 

quarterly (i.e. 3-month) increments; 



Type 3 : The horizontal axis is divided into 26 

annual increments. 

The vertical axis range of the chart is determined 
by the user. The actual range specified will, of course, 
be dictated by the range of data to be plotted. 

The chart is constructed in Graphics mode 0. A 
high-resolution display is obtained through the use 
of a redefined character set. For a given bar, a resolu- 
tion of up to 160 points is possible. 

In order to use the subroutine, the calling pro- 
gram must supply values for six items; 

1. The beginning year (two digits) to be used 
for labeling the horizontal axis. 

2. The desired type ( 1-3) of time interval for 
the horizontal axis, as described above. 

3. The minimum value to be used for label- 
ing of the vertical axis. Typically, this value may 
be zero; however, a negative value (in the event a 
negative bar is to be plotted) or a value greater 
than zero is also allowed. 

4. The vertical axis is "marked" off into 20 
segments. Each segment has a resolution equal 
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to 1/8 of its range. The value supplied here will 
be the range between each segment (mark). For 
example, if a vertical axis which varies from to 
1000 is desired, then a zero would be specified 
for the minimum (item 3 above) and 50 would 
be specified for the range of each vertical mark 
(50 X 20 =1000). The value for this parameter 
cannot be less than .01. 

If a negative number is specified as the mini- 
mum (item 3 above), then the range of each 
vertical mark must be large enough to insure 
that zero (0.00) is included as a label on the 
vertical axis. The subroutine will automatically 
take care of this condition and include zero on 
the vertical axis, although the minimum may 
not be as desired. 

The range of the vertical axis must be an inter- 
val between -99, 999.99 and 999,999.99. 

5. The data to be plotted. 

6. A descriptive title for the bar chart. This 
title should be 30 characters or less and use all 
upper case characters. 

The values for the first five items above are stored 
by the user's program in an array, DAT ( ). The be- 
ginning year, plot type, minimum vertical label and 
vertical mark range are stored in DAT (1), DAT 
(2), DAT (3) and DAT (4) respectively. The data is 
then stored chronologically in DAT (5) through 
DAT (32). The desired title is stored in TITLE$, and 
a call to the subroutine can then be made (GOSUB 
560). The subroutine plots the data and then returns 
to the user's program after any key is hit. 

The following listings are composed of 3 seg- 
ments. The first. Lines 100 through 490, is an initial- 
ization sequence which sets up the redefined charac- 
ters that are used to construct the horizontal axis, 
vertical axis and data bars. Since the standard alpha- 
numeric characters are also required, the upper case 
letters and numbers are copied from BASIC'S stan- 
dard character set to be used in the new character set. 
This is accomplished in Lines 180 through 220. 

Lines 240 through 490 provide the definition of 
the redefined characters. Notice that this initializa- 
tion also provides storage for DAT( ) and TITLE$ 
(Line 150). This initialization needs to be executed 
only once. Once accomplished, a branch to the 
user's program (second segment) is made in Line 
510. 

The user's program for this example is listed in 
Lines 1480 through 1600. The data values in Line 
1520 are the chart specifications for DAT(l) — 
DAT(4). It will be instructive to make changes to the 
data values in this line to see how the chart construc- 
tion is affected. Basically, the user's program puts the 
appropriate values into array DAT( ), sets TITLE$ 
equal to the desired title, and then calls the bar chart 
subroutine with GOSUB 560. 

The third segment ( Lines 520 through 1470) is the 
subroutine itself. Lines 610 through 830 draw the 



horizontal axis. The vertical axis is drawn by Lines 
840 through 1040. Use is made of a short subrou- 
tine (Lines 1360 through 1470) in order to right- 
justify the numbers for the vertical axis labels. 

The data is plotted sequentially at Lines 1050 
through 1320. At Line 1070, the value of a given data 
point is converted to the number of blocks that will 
be displayed to construct the bar. Each block has a 
height equal to the height of a Graphics character; 
as httle as l/8of a block can be plotted. The number 
of full character blocks to be plotted is determined at 
Line 1110, and the fractional part of a block to be 
added is evaluated at Line 1130. Lines 1170 through 
1230 draw a bar for positive-valued data while Lines 
1240 through 1320 draw a bar for negative-valued 
data. A return to the user's program is accomplished 
at Line 1350. 

Precautions. 

There are a couple of precautions which should be 
noted. If the vertical range exceeds 999,999.99 oris 
below -99,999.99, then the subroutine will execute a 
program stop at Line 1380. Should this occur, read- 
justment of the minimum vertical value, DAT(3), or 
the vertical mark range, DAT(4), will be needed. 

(continued next page.) 



ATARI- 



PAYROLL SOFTWARE 

FOR 

THE ATARF 800 " 



Miles Payroll System is an advanced and comprehensive payroll accounting system 
designed for businesses today. Cumulative totals are maintained lor each employee, as well as 
complete reporting, check writing, and W-2 reporting. Some features include: 

• Random access file organization tor fast updating of individual records. 

• Allows weekly, biweekly, semimonthly or monthly pay periods. 

• Completely menu-driven and user-friendly 

• Regular, Overtime. DouWe lime. ScK Holiday, Vacatiorx Bonus and Commisswn earning categories 

• Payroll deductions include Federal W/H Tax, Slate W/H Tax. City W/H Tax. PICA, SDI, Group 
Insurance and 3 user-defined deductions, 

• Tax sheltered annuity deduction capability for IRAs and other tax shelters. 

• State and Federal Unemployment Insurance maintained. 

• Complete file viewing and editing capability. 

• Maintains up to 50 employees. 

• Up to 10 user-defined Worker's Compensation classifications 

• Federal Tax tables may be changed in only 1 5 minutes each year by user when I RS changes tax 

• TaWe method used tor Slate arxl City Tax. allowing compatibility with any state's or city's tax 

• Produces 15 different reports, including W-2 Forms Report 

• Checks calculated and printed automatically. 

• PROGRAM ENABLING MODULE"* protectsvaluablepayTotlinformalk)nfromunauthofizeduser& 

• 3 user-defined payroll deductions to accommodate customized needs such as savings, profit 
sharing tax shelters, pensions, etc, 

• Pay period, nwnthly, quarterly and yearly cumulative totals maintained for each employee. 

• Automatic input error detection and recovery protects system from user-generated errors. 

• Easy-to-follow, detailed, and comprehensive user's manual and lutorial leads the user step 
by step allowing anyone witti little computer experience to easily operate the package 
Includes index 

• Color, sound, and graphics utilized lor user ease. 

• Maintains emptoyee pay history. 

• Allows for manual payroll check writing. 

• Packaged in a handsome 3-ring deluxe pocketed binder with 3 diskettes and manual. 

• Reasonable price. 

See your local store, or contact Miles Computing. 

jL A MILES COMPUTING 

/m^;i*c ^^3^ ^^skell Ave. #204 

/ J» lUeb Van Nuys, CA 91406 

^ " (213)994-6279 

Atari is a registered trademarl< ol Atari, Inc. 

Miles Computing. MILES PAYROLL SYSTEM. PROGilAM ENABLING MODULE are trademafl<S 

ol Miles Computing. Van Nuys, California. Not afliliated with Atari, Inc. 

$1 79.95. Requires 32K and two Atari* 810" disk drivers. Payment in U.S. lunds required with 

order. Calilornia residents add 6.5% sales lax. 0.0.0. a prepayment only. Dealer inquires 

welcome. 
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The redefined character set used by the subroutine 
is stored at the highest IK block of RAM which 
begins at a IK boundary. This beginning address is 
calculated as the value for variable NB at Line 160. 
When writing your application program, care must 
be taken to insure that this area of RAM is not over- 
written. 

After the initialization sequence and subroutines 
have been typed in, the following command, entered 
in the direct mode while in Graphics 0, will indicate 
the actual amount of RAM available for your pro- 
gram. 

? FRECOJ -PEEK f 741) -1024 

As your program is added, the value shown will 
decrease, but as long as it is greater than zero, 
memory will be available. With a 16K RAM 
machine, at least 8K bytes should be available for 
your program. 

Additionally, your program must not use any 
graphics mode which requires more RAM than 
Graphics (see Table 9.1 in the Atari BAS7C 
Reference Manual). This means your programs will 
be limited to graphics 4 or below. Otherwise, RAM 
required by the screen display will modify memory 
where the redefined character set is stored. D 



180 REM SAMPLE PROGRAM AND 5UBH0U- 

118 REM TINE FOR PRODUCING A BAR 

128 REM CHART. MRITTEN BV 

130 REM THOMAS P. HEWDOME 

148 REM INITIALIZE CHARACTER SET 

158 DIM DAT (323, TITLES (38) 

160 GRAPHICS 0:CBz:57344:NB=(PEEK(742)- 

4)«256 

178 GRAPHICS 17:P0SITI0H 4,10:? tt6;"IH 

ITIALIZING" 

188 FOR 11=0 TO 58:KH=II«8 

190 AlrCB+XK:A2=NB+KX 

200 FOR JJ=0 TO 7 

210 POKE A2+JJ,PEEK(A1+JJ) 

228 NEXT JJ:NEXT II 

230 GRAPHICS 17:P0SITI0N 6,18:? »6;"ST 

ANDBY" 

240 ME=NB+512 

258 RESTORE 238 

268 FOR lire TO 28 : A2=ME+II»8 

270 FOR JJ=0 TO 7:READ CH:POKE A2+JJ,C 

H 

288 NEXT JJ:NEXT II 

290 DATA 255,255,24,24,24,24,24,24 

300 DATA 255,255,24,24,8,8,8,0 

318 DATA 255,255,8,0,0,8,0,8 

328 DATA 3,3,3,3,3,3,3,31 

338 DATA 3,3,3,3,3,3,3,127 

340 DATA 0,0,8,0,0,0,0,0 

350 DATA 0,0,0,0,0,8,0,126 

368 DATA 0,8,0,8,0,8,126,126 

378 DATA 0,8,8,8,8,126,126,126 

388 DATA 8,8,8,0,126,126,126,126 

398 DATA 8,8,8,126,126,126,126,126 

400 DATA 0,0,126,126,126,126,126,126 

410 DATA 8,126,126,126,126,126,126,126 

420 DATA 126,126,126,126,126,126,126,1 

438 DATA 126,126,126,126,126,126,126,8 

440 DATA 126,126,126,126,126,126,8,8 

458 DATA 126,126,126,126,126,0,0,0 

468 DATA 126,126,126,126,8,8,0,0 

470 DATA 126,126,126,0,0,0,8,0 

480 DATA 126,126,0,8,0,8,0,0 

490 DATA 126,8,0,8,0,8,8,8 



580 REM BRANCH TO USERS PROGRAM 

518 GOTO 1480 

528 REM BAR CHART SUBROUTINE 

538 REM ARRAY DATO AND TITLES 

540 REM SHOULD BE PREPARED BY THE 

558 REM USERS PROGRAM 

568 PT=INT (DAT (2) ) : YR=DAT (1) : LO=DAT (3) 

565 IF PT<1 OR PT>3 THEN ? "PLOT TYPE 

MUST BE 1,2, OR 3": STOP 

570 UI=DAT(4) :HF=36:LI=PT+1 

575 IF WK0.01 THEN ? "THE RANGE FOR E 

ACH VERTICAL MARK MUST BE > .81": STOP 

588 IF PT=2 THEN HF=38 

598 IF PT=1 THEN HF=34:LI=11 

688 GRAPHICS 8:P0KE 756, NB/256 ;POKE 75 

5,8 

618 REM HORIZONTAL AXIS 

628 POSITION 18,28;? CHRS(2) 

638 POSITION 11,28 

648 ? CHRS{0)j 

650 IF PEEK(91)>=HF THEN 710 

660 FOR XX=1 TO LI 

670 ? CHRSd); 

680 NEXT KX 

698 GOTO 648 

780 REM HORIZONTAL LABELS 

710 HZ=11 

728 IF PT>1 THEN 788 

738 POSITION HZ, 21 

740 ? "JFMAMJJAS0NDJFMAMJJA50ND" 

758 POSITION HZ, 22:? YR 

768 POSITION 23,22:? YR+1 

778 GOTO 830 

788 POSITION HZ, 21:? YR 

798 IF PT=2 THEN YR=YR+1 : HZ=HZ+4 

888 IF PT=3 THEN YR=YR+5 : HZ=HZ+5 

818 IF YR>=188 THEN YR=YR-188 

826 IF PEEK (91X35 THEN 788 

830 POSITION 24-(LEH(TITLES))/2,23:? T 

ITLESj 

848 REM VERTICAL AXIS 

850 FOR XK=0 TO 19 

868 POSITION 9, XX:? CHR$(3) 

870 NEXT XX 

880 UA=8:MB=8:U2=VIK2 

890 ZE=19+INT{L0/UI) 

988 IF LO>=yi THEN ZE=19 :UA=LO : MB=LO/U 

I 

910 IF ZE<8 THEN ZE=8 

920 UT=ZE:GOSUB 1388 

938 UT=VT+2 

948 IF VT>19 THEN 988 

950 UA=UA-U2 

968 GOSUB 1388 

970 GOTO 930 

980 WA=0:UT::ZE 

990 IF LO>=UI THEN UA=LO 

1888 UT=gT-2 

1810 IF UT<8 THEN 1868 

1828 UA=VA+U2 

1830 GOSUB 1388 

1848 GOTO 1008 

1850 HEM PLOT DATA 

1060 FOR 11=11 TO HF 

1070 BK=DAT(II-6)/yi-MB 

1880 SN=SGN(BK) :BK=ABS(BK) 

1090 IF SN=-1 AND ZE+BK>19 THEN BK=19- 

ZE 

1188 IF SN=1 AND ZE-BK<-1 THEN BK=ZE+1 

1110 FB=INT(BK) 

1128 HX=(BK-FB)»8 

1138 PB=INT(XX) 

1148 IF (XX-PB)>=8.5 THEN PB=PB+1 

1158 IF PB=8 THEN FB=FB+1:PB=0 

1168 IF SN=-1 THEN 1248 

1170 IF FB=0 THEN 1220 

1180 FOR JJ=0 TO FB-1 

1190 POSITION II,ZE-JJ 

1200 ? CHRS(13) :NEXT JJ 

1210 IF ZE-BK<=-1 THEN 1328 

1228 POSITION II,ZE-FB:? CHRS t6+PB) 

1238 GOTO 1320 

1240 POSITION II, ZE:? CHR3 (6) 

1250 IF FB=0 THEN 1298 

1260 FOR JJ=1 TO FB 

1278 POSITION II,ZE+JJ 

1288 ? CHRS(13) :NEXT J J 



ISSUE 16 



ANALOG COMPUTING 



PAGE 33 



1290 IF PBre THEM 1328 

1380 POSITION II,ZE+FB*1 

1310 ? CHRSC21-PB) 

1320 NEKT II 

1330 POKE 764,255 

1340 IF PEEKt764)=255 THEN 1348 

1350 RETURN 

1360 REM SUBROUTINE FOR RIGHT 

1370 HEM JUSTIFICATION 

1380 IF Ufl>999999.99 OR Uft<-95999.99 T 

HEN STOP 

1390 U3=flBS(yflJ :HZ=5 

1400 IN=INTCU3J :Ffl=INTf ty3-INJ#100) 

1410 IF IN=0 THEN 1438 

1428 HZ=5-INT(CL0GfIN3) 

1430 IF Vfl<0 THEN 1458 

1448 POSITION HZ,VT:? IN; " . "; Ffl; "8"; : G 

OTO 1468 

1450 POSITION HZ-1,UT:? "-•' ;1H;" ." iFtk} 

"8" 

1460 POSITION 9,UT:? CHR$(4] 

1470 RETURN 

1480 REM BEGINNING OF USER PROGRAM 

1490 RESTORE 1528 

1588 FOR X=l TO 32:REaD DATA 

1518 DAT (K) -DATA: NEKT K 

1528 DATA 80,1,-5,2 

1530 DATA 8, ,25, .5, .75,1,1.25,1.5,1.75 

,2 

1548 DATA 8,-1,-2,-3,-4,-5 

1558 DATA 8,4,6,8,10,12,24,32,12,18,9, 

8,6 

1560 TITLES="PLOT TYPE 1 - HIT ANY KEY 



1570 GOSUB 560 

1588 DATC23=2:TITLES="PL0T TYPE 2' 

UB 560 



1590 DATC2J=3:TITLES="PL0T TYPE 3":G0S 

UB 560 

1608 GRAPHICS 8 



CHECKSUM DATA 
(see pp. 20-24) 

188 DATA 7,285,886,714,486,174,311,663 
,348,983,137,382,952,653,949,7842 
258 DATA 215,598,8,978,937,345,383,16, 
874,724,835,304,363,474,943,7989 
''S?-,'*^^'' 974,85,554,86,986,933,465,365 
, 312, 844, 739, 965, 311 , 51, 727, 8397 
^59^'*5P *2, 981, 878, 570, 852, 95, 813, 117 
,312,722,478,683,713,497,693,8366 
688 DATA 746,742,817,383,523,591,464,2 
i^A^S5t?^2i2^2, 193, 178, 674, 495, 7434 
838 DATA 587,12,488,711,747,809,616,35 
2,835,747,576,837,861,848,745,9^75 
988 DATA 68,331,668,923,879,953,788,52 
6 , 643, 9, 361 , 163, 531 , 188, 162 , 7817 
1138 DATA 195,168,847,638,885,656,173, 
f?lA^H+2^lA''i2, 621, 893, 638, 168, 8822 
l|8?,gfiTA 984,983,167,285,723,15,859,7 
93,163,423,888,623,375,922,923,8798 
1430 DATA 910,905,987,825,798,58,192,8 
fSAi^**'*^^'**^' 814. 318, 185, 755, 8445 
1588 DATA 536,548,60,1136 



iGOS 



A LIFETIME OF DISCOVERY 
BEGINS WITH ATARI COMPUTERS 



RANA 1000 DISK DRIVE 

Single/Double Density Drive.... $CALL 

Alari DOS $CALL 

Double Density Sottware $CALL 




TRAK AT DISK DRIVE 

Single Density AT-D1 $CALL 

Double Density AT-D2 $CALL 

Atari DOS $CALL 

di^GEaSSnnSBI \ Double Density software SCALL 

PRINTERS 

Gemini STX-80 (80 Column Thermal) $1 69.00 

Gemini 1 0X Printer (80 Column) 299.00 

Gemini 1 5 Printer (1 36 Column) 399.00 

Silver-Reed EXP 500 Daisy Wheel Printer (80 Column) 399.00 

Epson RX-80 (80 Column) Dot Matrix 359.00 

Epson FX-80 (80 Column) Dot Matrix 555.00 

Epson FX-1 00 (1 36 Column) Dot Matrix 749. (X) 

Prowriter 851 AP 375.00 

Gorilla/Banana Printer (80 Column) 1 99.00 

MPP-1 1 00 Parallel Printer lnter1;ice(Eliminate need for Alari 850) .... 79.00 

MONITORS 

Gorilla" Hi Res 1 2" Non-Glare Green Screen $ 89. (M 

Amdek Video 300 Green Screen 1 30.00 

Amdek Video 300A Amber Screen 144. 00 

Amdek Color-I Screen 280.00 

Monitor Cable 1 5.00 

MODEMS 

MPP-1 000 Modem $1 69.00 

Signalman Mark II Modem 69.00 



A 

ATARI 



600 XL 
800 XL 
1400XL 
1450XL 



C 
CALL 

L 
L 



1 050 Drive 

1025 Printer 

1020 Color Printer 

1027 Printer 

1010 Recorder 



ATARI - 3rd Party Software 
ALL BRANDS - CALL 

GENERIC DISKS 

GENERIC 100% DEFECT-FREE/GUARANTEED MINI-FLOPPY DISKS 
Diskettes (1 Box Min.) - 10 per box 





SS/SD 


SS/DD 


DD/DD 


1 or 2 Boxes 


14.99/box 


17.49/box 


20.99 


3 - 9 Boxes 


13.99/box 


15.99/box 


19.99 


10-1- Boxes 


1 3.49/box 


14.99/box 


18.99 



Bulk Diskettes with Sleeves - Price Per Disk 



10 - 29 
30 -99 

100-^ 



SS/SD 

1.39 
1.29 
1.25 



SS/DD 

1.59 
1.49 
1.45 



DD/DD 
1.99 
1.89 
1.79 



TO ORDER CALL TOLL FREE: 1-800-824-7506 

MC COMPUTER CREATIONS, Inc. 

VISA P.O. Box 292467 

Dayton, Ohio 45429 
For Information Call: (513) 294-2002 
(Or to order in Ohio) 

All Orders Add $3,00 Shipping and Handling. Ohio residenls add 6% for sales tax. 
ASK FOR OUR FREE CATALOG 



C.O.D. 
(Add $2.50) 
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GATEWAY TO APSHAI 
by The Connelley Group 
EPYX COMPUTER SOFTWARE 
1043 Kiel Court 
Sunnyvale, California 94089 
16K Cartridge $39.95 

by Charles Bachand 



I'm mad! Very, very mad! I just lost my last man to 
a Mamba Snake on level six of Gateway To Apshai , 

the new machine-language adventure cartridge from 
Epyx. I'm so upset, I think I'm going to play it over 



and 



over agam! 



When I get really angry with a game, it's usually 
because the game play is rotten, the instructions 
make absolutely no sense, or I'm constantly getting 
myself killed off and can't seem to gain any ground. 
None of these are true in Gateway. Here, the game 
frustration is genuine because when you lose, you 
really want to keep on playing. Game play is fast and 
furious because all inputs are limited to a joystick 
and three console buttons (START, SELECT and 
OPTION). The instructions are so simple that you 
need only read two or three pages to get started. As 
for the time it takes to get killed, I've been averaging 
one to two hours of play to advance into the higher 
dungeon levels. 

The basic scenario is that of a brave adventurer 
who has volunteered to explore the dungeons of 
Apshai. You are armed with only a dagger, a suit of 
leather armor and a prayer; as you explore the many 
rooms that make up each dungeon. Because you can 
only see rooms that have already been explored, 
entering unexplored rooms may reveal valuable trea- 
sure, magic talismans, stronger armor, deadly 
weapons or instant death! Gateway lets you choose 
from 16 different game levels, each of which is made 
up of eight dungeons, for a grand total of 128 
dungeons with over seven thousand rooms. That 
should be enough to keep anyone busy for quite a 
while. 

Gateway is an improved machine-language ver- 
sion of Epyx's best-selling adventure game Temple 
of Apshai. The original used keyboard input for 
everything, was relatively slow, and took forever to 
load (at least the cassette version did, and that was all 
I had when Temple first came out). To elaborate on 
how slow the original was, every time you entered a 
different part of the dungeon, the computer had to 
redraw the walls of the room to be displayed. This 
took from five to fifteen seconds. By contrast. 
Gateway's wall-drawing is almost instantaneous 
and once drawn, stays drawn. This is accomplished 
by treating the screen as a window into a much larger 
dungeon, and using fine horizontal and vertical scrol- 
ling to view different sections. If you try to move 



your character off-screen (provided he doesn't 
bump into a wall first), the visible part of the 
dungeon slides off the screen and is replaced by a 
new area. Combined with the animation effects of 
your player and the creatures that you encounter in 
your travels, the scrolling dungeon effect adds 
greatly to the playability of the game. 

Gripes. 

One negative aspect of Gateway is that you can't 
save your games for later continuation. This is some- 
what understandable due to the amount of data 
making up each dungeon, but it is still something 
that I wish was incorporated into the cartridge. If you 
want to play a game to its conclusion, you have to do 
it all in one sitting. There is also no straightforward 
way to pause the game, although you can fake it by 
going into one of the status screens until you're ready 
to go on. 

Another gripe: Because you are constantly using 
the console buttons to select different options, you 
must be very careful not to accidentally hit the 
SYSTEM RESET key. This reboots the game from 
the beginning; it's happened to me on more than one 
occasion. 




It is a fact that one's desire to play a computer 
game is inversely proportional to the time it takes to 
load that game. If Gateway was on cassette or disk, 1 
would probably play with it two or three times and 
then put it away. However, being a cartridge, I have 
been playing Gateway during lunch, coffee breaks 
and even after work. [Let's not forget those work-hour 
sessions, either. — Ed.] I don't think I've played a 
game this much since I sat down to Sierra On-Line's 
Ali Baba And The Forty Thieves for eight straight 
hours. When the GAME OVER prompt finally 
appears, you look up and realize the two hours of 
your life have slipped through your fingers. 

If you're looking for just another arcade shoot'em 
up, then this game may not be for you. But if you're 
into D&D games or enjoyed the original Temple, 
then I heartily recommend Gateway To Apshai. D 



L\;co Computer Marketing & Consultants 

TOLL FREE 800-233-8760 



TO ORDER 

CALL US 



In PA 1 717-327-1824 



PRINTER 
INTERFACING 



PRINTER PAPER 
AVAILABLE 



lAvallabla (or IBM PC. Apple, Atari, Vic 20 S Vic 64 



SAVE r PRINTERS 



EPSON 



OKI DATA 



LETTER QUALITY 

SMITH CORONATP2. . . $449.00 

DIABLO 630 ..$1719.00 

ALPAHCOM42 $89.00 

ALPHACOM 81 $1 29.00 

NEC 8023 $369.00 

NEC 8025 $699.00 

NEC PC-8200 
COMPUTER $CALL 



RX-80 $SAVE$ 

RX-80FT ON 

FX-80 In-Stock 

FX-100 EPSON 

MX-80FT PRINTERS 

MX-100 $$CALL$$ 

MANNESMANN 
TALLY 

SPIRIT 80 $CALL 

MT 160L $CALL 



80 $SAVE$ 

82A CALL for 

83A LOW/EST 

84 PRICES 

92 on these 

93 In-Stock 

PACEMARK 2350. . . PRINTERS 

ATARI 850 

REPLACEMENTS 

IN-STOCK 



CITOH 

GORILLA GX100 $179.00 

PROWRITER8510 ...$339.00 

PROWRITER II $659.00 

8600 $1025.00 

STARWRITER $1 099.00 

PRINTMASTER $1499.00 

STAR MICRONTICS 

GEMINI 10X $269.00 

GEMINI 15X $CALL 

DELTA 10 $479.00 



MODEMS 



ANCHOR MARK I 
1 ANCHOR MARK 

HAVES SMART .. 

HAYES MICRO M 
Micro Bit 

/IPP-1000 

NOVATION 
I CAT 

DC AT 

J-CAT 

APPLE CAT II . .. 

212 APPLE CAT . 



S79.00 

I. S79.00 

$239.00 

S309.00 

$129.75 

S144.00 
S155.00 
S1 15.00 
$279.00 
$589.00 



MONITORS 

Sakata Color $229.00 

Amdek Color I $275.00 

Amdek 300 Green $149.00 

Amdek 300 Amber ... . $149 00 
Gorilla Green $99.00 



PARKER BROTHERS 

Tutankham R $33.75 

Super Cobra R $33.75 

Astro Chase R $33.75 

Frogger R $33.75 

OBert R $33.75 

Popeye fl $33.75 

RIskR $42.75 

Chess R $42.75 

SPINNAKER 

Story Machine R $26.75 

Face Maker R $24.75 

KIndoromp R $20.75 

Fraction Fever R $24.75 

Delta Drawing R $26.75 



SSI 

Battle of Shilo C/D $26.75 

Tigers In the Snow C/D $26.75 

Battle for Normandy C/D ..$26.75 
Knights of the Desert C/D . $26.75 
Cosmic Balance C/D $26.75 

ON-LINE 

Frogger S24.B5 

Wizard & Prin $26.95 

ROKLAN 

Wizard of War $29.75 

Gorf $29.75 

Delux Invader $27.95 

BIGS 
Miner 2049 $32.75 

APX 3R Math $19.95 

Typo Attack $24.95 

Family Budget $19.95 

F. Cash Flow $19.95 

EASTERN HOUSE 
Monkey Wrench 2 $52.75 



BRODERBUND 

Bank Street Writer D $49.75 

AE D $24.75 

Apple Panic D $23.75 

Choplltter ROM $32.75 

David's Midnight $24.75 

Stellar Shuttle C/D $1 8.75 

Ft. Apocalypse $24.75 

SYNAPSE 

BLUE MAX C/D $24.75 

Ft. APOCALYPSE C/D. . . $24.75 
PHAROAH'S CURSE C/D ... $24.75 

DUST COVERS 

800 $3.99 

400 $3.99 

1200 $3.99 

410 $3.99 

810 $3.99 

1050 $5.99 

PROWRITER $5.99 

GEMINI 10X $5.99 

PERCOM DISK $5.99 

ALIEN GROUP 
Voice Box 2 . $99.75 



DON'T ASK 

Sam $41.75 

Abuse $15.95 

Teleatrl $27.95 

Poker Sam ..$24.95 



PACMAN 

DONKEY KONG 
DIG DUG... 
DEFENDER 
CENTIPEDE 



EPYX 
GATEWAY TO 

ASPHI R $28.75 

JUMPMAN JR R $28.75 

PIT STOP R $28.75 

GATEWAY TO 

ATARI 

Computers for peopk; 
O 

600X1 $CALL 

800XL for 

1 400XL. . . Lowest 
1450 Prices 

1020 PRINTER NOW 

1025 PRINTER IN 

1027 PRINTER STOCK 

1 050 DISKDRIVE.... $SAVE$ 

1010 RECORDER $74.75 

DEADLINE --$34.75 
ENCHANTER $34.75 
INFIDEL -$34.75 

S» TS PLANETFALL .$34.75 
""■'S STAR CROSS -$34.75 
$29.75 SUSPENDED "$34.75 
$29.75 WITNESS ..$34.75 
$29.75 ZORKI ...$34.75 

$29.75 Tnoirii ...$.^4.75 



di 



BLANK DISKETTES 
ELEPHANT 

single Sid* SD (1 0) $17.75 

Single Side DD (10) $21.75 

Double Sid* DD (1 0) $26.75 

MAXELL 

MDI(IO) $28.75 

MDII(IO) $38.75 

CERTRON CASSETTES 

CC-10 12 for $15.99 

CC-20 1 2 for $1 7.99 

INNOVATIVE CONCEPTS 

Disk Storag* (holds 10) $4.95 

Disk Storag* (holds 15).... $9.95 
Disk Storag* (holds SO) $26.95 



TRAK DISK DRIVES 

AT-D1 $37^00 

AT-D2 $399.00 

PRINTER CABLE $22.95 

Software fot ATD-2 ....$22.95 



RAN A 
DISKDRIVE 



COMPUTER CARE 

BIB 

S'A DISK DRIVE 

CLEANER $12.75 

COMPUTER CARE 

KIT $19.75 



HARD DISK 
DRIVES for 

APPLE IBM-PC 

5MEG $1349.00 

10MEG ...$1599.00 
15MEG ...$1999.00 
20MEG ...$2359.00 

■ a,i,i c, 1(1 11(1 u.. TBS wi n. vrs 

TEXAS 
INSTRUMENT 

Disk Drive... $245.00 




FOR ATARI 
COMPUTERS 

AT88SI ....$329.00 
AT88S2 ....$535.00 
AT**S1PD... $439.00 
RFD40S1... $399.00 
RFD40S2...$675.00 
RFD44S1... $449.00 
AT88 doubler 



^^^^n 



TO ORDER 



CALL TOLL FREE 



or send order to 



800-233-8760 p^^o "e'crsoar 

iCustomer Service 1-717-327-1825 Jersey Shore PA 1 774C 



POLICY 

In-stock items shipped within 24 hours of order. Personal 
checks require four weeks clearance before shipping. No 
deposit on CO. D. orders. Free shipping on prepaid cash orders 
within the continental U.S. PA residents add sales tax. All 
products subject to availability and price change. Advertised 
prices show 4% discount offered (or cash, add 4% for Master 
Card or Visa. DEALER INQUIRIES INVITED 
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BUILD 
A LOW COST PRINTER INTERFACE 



16K Cassette or Disk 



by Paul S. Swanson 



The step up to a printer can be very costly, 
especially if an Atari 850 Interface Module is 
required. Of the printers not requiring an interface 
offered by Atari, the 1027 Letter-Quality Printer 
may prove too slow, and the 1025 Dot Matrix 
Printer has no graphics capability. There are many 
used Centronics-compatible printers available at 
very reasonable prices; but the 850 Interface you 
need to use them adds another $200 to the cost. 

Even if you already own an 850, there are other 
potential problems with using it to drive a printer. 
One example is trying to run a printer in combina- 
tion with a modem connected to the Interface 
Module. While the modem is in use, any attempt to 
send data to the printer will cause the system to lock 
up. This occurs because the 850's RC232C post 
depends on serial bus interrupts, effectively dis- 
abling all other I/O activity while the port is open. 

Fortunately, it is possible to connect a printer to 
your Atari without an 850 by using a pair of joystick 
ports. It's not a perfect solution, but it does solve the 
problem mentioned above. 



Restrictions. 

A stick-port printer interface requires a special 
software handler, which must be installed in your 
system before you can use the printer. Therefore, 
this interface will not work with any commercial 
software that cannot be LOADed from BASIC. The 
machine-language handler is located in the upper 
half of page 6 (starting at address 1664 or $680 hex), 
so it will not work with any program that uses this 
area of memory. 

These restrictions eliminate a few uses for the in- 
terface, but several others remain. For instance, pro- 
grams you write yourself in BASIC can use this inter- 
face, and can be LISTed to a printer through it. 
Public-domain software written in BASIC can also 
benefit, because the handler can be initialized before 
the application is LOADed. This interface also 
allows you to print while an 850 modem channel is 
open, if your printer is fast enough to keep up with 
incoming data. Unhke other stick-port interfaces, 
my design uses only two ports instead of three or 
four, so it is fully compatible with Atari's new XL 



ISSUE 16 



ANALOG COMPUTING 



PAGE 37 



line of computers. And because 850 Interfaces are 
hard to come by nowadays, this low-cost interface 
might make a good temporary backup while you wait 
for your 850 to arrive. 

Hardware considerations. 

The hardware part of the stick-port interface is 
just about the simplest possible. All you need are 
three plugs. One connects to your printer; you will 
have to determine which type of plug your printer 
requires. The other two are standard 9-pin joystick 
plugs, available from any Radio Shack store for 
$2.49 each (catalog #276-1538). The plugs are wired 
together with a 12-conductor ribbon cable. I cheated 
by using a 14-conductor cable, leaving two conduc- 
tors unused. 

Refer to the documentation that came with your 
printer to determine the pin assignments for the plug 
at that end of the cable. This interface requires data 
lines through 6. If the printer takes 8 data bits, the 
manual should indicate whether you should make 
Line 7 high or low for a 7-bit interface. If it doesn't 
say anything about it, connect Line 7 to ground. 

You'll also need a strobe line and a busy line as well 
as the ground line. If no busy line is present, the 
"acknowledge" line may work. The ground line must 
be connected to the ground on your computer for 
reference. 

12 3 4 5 



• • • • 

6 7 8 9 
Joystick pin assignments. 



PIN 



JACK 1 



JACK 2 



1 


data 


data 4 


2 


data 1 


data 5 


3 


data 2 


data 6 


4 


data 3 


strobe 


5 


N/C 


N/C 


6 


N/C 


Busy 


7 


N/C 


N/C 


8 


N/C 


ground 


9 


N/C 


N/C 



Figure 1. 

Figure 1 shows how the wires should be con- 
nected to joystick ports 1 and 2. The pin numbering 
on the plugs can be easily determined by holding the 



connector so that the 5-pin row is on top, with male 
connectors facing towards you and females facing 
away. With the connector oriented in this manner, 
pin 1 is in the upper left corner. Pins are numbered 
left to right across the top, and continue left to right 
across the bottom. 

Using Figure 1 and your printer documentation 
as a guide, get out your soldering iron and connect 
the ribbon cable to the three plugs. Be very careful to 
solder the wires and pins correctly. 

Checking it out. 

Before installing the software part of the inter- 
face, you can test your wiring with some immediate- 
mode commands in BASIC. BASIC is too slow to 
check the acknowledge line on most printers, but the 
following tests can be used to verify all of the other 
lines. 

1. Turn your computer and printer off. 
Connect your new cable assembly to the stick 
ports and to the printer. Make sure the BASIC 
cartridge is installed and turn on the computer. 
If it doesn't initialize itself normally, shut it off 
immediately and check your wiring. Look 
particularly for shorts between pins 7 and 8 on 
either joystick plug. 

2. When the computer displays the BASIC 
"Ready" prompt, turn on the printer. Again, if 
anything unusual happens, shut off the 
computer and printer immediately and check 
your wiring. 

3. If everything appears normal, you are 
ready to test the connections. Refer to your 
printer's manual to determine the phase of its 
strobe line. This article assumes an active high 
strobe, such as required by an Epson MX-80; 
but a number of printers, including an IDS IP- 
225 that I have interfaced in this manner, 
require an active low strobe. 

4. You must now set up PORTA on your 
Atari so that it is configured for output. Care- 
fully type in the following immediate-mode 
lines and press RETURN: 

POKE 54018, 56:P0KE 54016,255 :POKE 5401 
8,60 

5. The simplest interface test is to send a 
carriage return to the printer. For printers with 
active high strobes, type the following: 

POKE 54016, 141:P0KE 54016,13 

For printers with active low strobes, swap the 
13 and 141. Bit 7 is the strobe line in this inter- 
face, so 141 (which is 13+128) is used to set that 
line high. 

Two things could have happened when you 
hit RETURN. Nothing is one possibility. If this 
is the case, check first to see i{ the printer is 
actually turned on and, if required, selected for 
"on-line." If your printer has a self-test func- 
tion, you may want to try that also. 
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Some printers require line feeds. If yours is 
one of these, try the following immediate-mode 
commands: 

POKE 54816, 138: POKE 54016,10 

If everything is connected, the printer is on- 
line and still nothing happens, it's time to start 
checking your wiring again. The most likely 
error is soldering the ribbon wires to the printer 
plug in reverse order. 

6. If the carriage-return commands moved 
the paper, you're ready to try other things. Send 
the printer different characters using their equi- 
valent codes. These can be found in the back of 
the Atari BASIC Reference Manual, or possibly 
also in your printer's manual. Remember that 
nothing will happen until you send the printer a 
carriage return. The EOL character generated 
by the Atari's RETURN key (CHR$( 155)) will 
not work; you must use a decimal 13. If your 
printer needs a line feed, use a decimal 10 as 
shown above. 

There are too many different types of printers 
around to cover all of the possibilities. If your 
printer has a parallel interface and doesn't follow the 
standards I'm describing, then you'll have to do a 
little research. There should be enough information 
in this article and in your printer's manual for you to 
figure it out yourself. Things that could vary include 
the polarity of the strobe and busy lines, and 
the presence or absence of bit 7. In a few instances, 
you may find that the data are inverted, in which case 
you must subtract from decimal 128 the 7-bit code 
for each character. This isn't very common, so your 
printer manual will probably mention it if applic- 
able. 

Your programming now has direct control over 
the voltages on the wires you connected. If you 
POKE a value into location 54016, its binary repre- 
sentation will be converted to a pattern of voltages 
on the wires. A binary should correspond to less 
than 0.8 volts, binary 1 to at least 2.0 volts. This can 
be tested with a voltmeter by connecting its ground 
to the ground line of the interface cable, and using 
the "live" probe of the meter to measure each of the 
eight data lines. 

The software. 

Once everything checks out, you are ready to 
install the software portion of the interface. The 
Atari computer makes this an easy job for anyone 
familiar with assembly language. Listing 1 is the 
assembly source code for an Epson printer inter- 
face. 

This printer handler makes use of a set of utility 
routines in the Atari operating system called CIO 
(Central Input/Output). CIO handles most of the 
logic required to implement the OPEN, CLOSE, 
PUT and GET commands for the printer. If you per- 



form a PRINT to the printer through BASIC, CIO 
will automatically break the print line down into 
individual characters, so that the interface will have 
to deal with only one at a time. LPRINT is a special 
BASIC command that is the equivalent of an OPEN/ 
PRINT/CLOSE sequence. CIO will take care of all 
of these details for you. 

CIO uses tables to find the locations of device 
handlers and other information it needs. The 
handler tables start at hexidecimal address $31A. 
Each I/O device is represented by three bytes. The 
first byte is the ATASCII representation of the 
device name, "P" or hex $50 in this case. The other 
two bytes are a pointer to the handler entry table, 
which can be located anywhere in memory. 

An entry table contains a sequence of 2-byte 
addresses called vectors, which tell CIO where to 
branch for each supported function. The vectors 
must be arranged in the order shown in Lines 360 
through 410 in Listing 1 (addresses $680 through 
$68B). GETB, which gets one byte from the device; 
STATUS, which returns a device status code in 
response to a BASIC STATUS command; and 
SPECIAL, used to implement anything not covered 
like XIO commands, are not used in this handler, so 
these vectors all point to a routine that returns a 
"function not implemented" error code to CIO. 
CIO uses the 6502 Y register to pass error code 
numbers, with 1 being the "no error" indication. 

The handler's OPEN and CLOSE routines (Lines 
500-570) simply define the function of the pins on 
the joystick ports. OPEN configures the pins for 
output and CLOSE redefines them as input, which is 
their default condition. OPEN and CLOSE use the 
6502 A register to pass the port definition byte, 
which is 255 ($FF) to OPEN the ports and to close 
them. Both routines also use the PASTEUP (Port A 
Setup) subroutine to configure the ports. 

PUTBYTE ( 740-1050) is the routine that actually 
sends a character byte to the printer. It begins by 
checking the busy line to make sure the printer is 
ready. For printers with busy lines that are active 
high, the BNE instruction in Line 760 must be 
changed to a BEQ instruction. 

Line 770 of Listing 1 is not required, and may be 
changed to a CLI or NOP instruction. Leaving the 
SEI instruction in place disables all other non- 
maskable interrupts from occuring during the PUT- 
BYTE routine. If you want to use the printer concur- 
rently with a modem, change Line 770 to a CLI 
($58). 

Setting up bytes for printing requires translation 
of the Atari End-Of-Line character (155 or $9B 
hex). This is checked first at Lines 810-830. Next, 
the high-order bit is set with the ORA #$80 instruc- 
tion in Line 850. For printers with active low 
strobes, this must be changed to AND #$7F to clear 
the high-order bit. The STA PORTA instruction 
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sends the processed byte to the printer. 

After a character has been sent, the printer niust 
be given time to respond. The JSR JINIT instruction 
in Line 870 refers to a dummy routine set up to waste 
8 machine cycles or about 2 microseconds, after 
which time the strobe Hne polarity is reversed by 
clearing bit 7 with AND #$7F. For active low strobe 
printers, change this instruction to ORA #$80. 

The next seciuence (930-980) is a timing loop that 
waits for the printer's busy line to respond. Epson's 
busy line is active high. Change the BNE PUT3 in- 
struction in Line 960 to BEQ^PUT3 if your printer's 
busy line is active low. This routine will return a time- 
out error code ($8B) to CIO if the printer fails to 
acknowledge by the time the loop counts down to 
zero. 

The three unimplemented functions mentioned 
above are handled in Lines 1090-1140. This routine 
returns an error 146 if called. 

The initialization routine is the final part of this 
program. Lines 1180-1270 find the current entry for 
the "P" device in the handler table at $31A, and 
replace it with the address of the new handler table. 
The JMP out of the initialization routine at Line 1410 
will be defined by the BASIC program that loads the 
handler into page 6. This will make it possible for the 



handler to re-initialize itself whenever the SYSTEM 
RESET key is pressed. 

The BASIC implementation. 

In Listing 2, the assembly routine in Listing 1 
has been converted to decimal DATA statements. 
Try not to add or delete any bytes if you must change 
the machine code to fit a different printer protocol. 
If you must add or delete, be sure to alter the calUng 
addresses in the handler entry table. Note that the 
entries in the table are the addresses of the entry 
points minus one. 

The BASIC program first POKEs the machine- 
language code into its proper location in memory. 
Then the JMP vector at the end of the handler is 
adjusted to point to the address contained in 
DOSINI (location 12 or $0C hex). This assures that 
the normal SYSTEM RESET routine will be 
completed after initializing our handler. Finally, the 
system's DOSINI vector is "stolen" to point to the 
beginning of the handler's initialization code. 

The last statement executed by the BASIC pro- 
gram is NEW, which clears the BASIC loader from 
memory. The interface handler is still tucked safely 
away in page 6, but it has yet to be installed. Press the 
SYSTEM RESET key and your new interface 
software will be initialized and ready to use. 



Put a Monkey Wrench 
into your ATARI 800 

Cutyour programming time from hours to seconds, and 
have 18 direct mode commands. All at your fingertips 
and all made easy by the MONKEY WRENCH II. 
The MONKEY WRENCH II plugs easily into the right slot of 
your ATARI and works with the ATARI BASIC cartridge. 

Order your MONKEY WRENCH II today and enjoy the 
conveniences of these 18 modes: 



Line numbering • 

Renumbering basic line • 
numbers 

Deletion of line numbers • 

Variable and current • 

value display • 

Up and down scrolling of • 

basic programs • 

Location of every string • 

occurrence • 
String exchange 

Move lines • 



Copy lines 

Special line formats and 

page numbering 

Disl< directory display 

Margins change 

Memory test 

Cursor exchange 

Uppercase locl< 

Decimal conversion 

Machine language 

monitor 

Hex conversion 



The MONKEY WRENCH II also contains a machine 

language monitor with 16 commands that can be used 

to Interact with the powerful features of the 6502 microprocessor. 





3239 Linda Dr. 
Winston-Salem, N.C. 27106 
(919)924-2889 (919)748-8446 
Send for free catalog! 
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Testing the handler. 

The stick-port printer handler should act almost 
the same way as the normal 850 Interface handler as 
far as BASIC is concerned. One important difference 
is that the OPEN command does not check to see if a 
printer is actually on-line. Normally you can TRAP 
an OPEN command to see if a printer is available. 
For this new handler, a similar test can be performed 
by TRAPping a PRINT statement and looking for an 
error 138 (device timeout). All other functions 
(including LPRINT) should work identically to the 
resident printer handler. 

If you're programming specifically for the stick- 
port interface and your printer's busy line is 
active high, you can use BASIC'S STRIG(O) function 
to check for a "printer ready" condition. With the 
printer plugs connected, STRIG(O) will return a 
value of if and only if the printer is connected, 
active and ready for output. Otherwise, STRIG(O) 
will return a value of 1. 

Using the interface. 

There are many possible uses for this type of 
printer interface. In addition to using it as a replace- 
ment for an 850 Interface, or for printing while using 
a modem, it also provides an easy way to add a 
second printer to your system. You'll have to alter 
some of the assembly code to identify the second 
printer as a new device. Instead of searching for an 
ATASCII "P" in the OS handler table, look for an 
unused table entry, represented by a $00 in the 
handler identification byte. Insert some other iden- 
tifier, like "Q," You can then OPEN the "Q," device 
and PRINT to it when you want the output to go to 
the second printer. 

This general scheme can be used to implement 
almost any 7-bit parallel output device. It doesn't 
even have to be a printer. It could be, for example, 
another computer. You could use such a system to 
transfer data from your Atari to another micro 
simply by PRINTing it. The restriction is that only 
seven bits are supported. There are also a number of 
plotters and other devices that could make use of this 
type of interface. 

Your printer may provide a couple of signal lines 
that are not supported by this interface. A fault line 
is one example. This line is used to indicate that the 
printer encountered an error. This line isn't really 
necessary because the busy line will always 
reflect the fact that the printer is not ready. If you 
want to attach a fault line so that it can be checked, 
connect it to pin 6 on controller jack # 1 and you will 
be able to read its state by using STRIG(O). 

With a little imagination, the ideas presented in 
this article can be used to connect your Atari to 
almost anything that uses 5-volt logic. Even serial 
devices could be accessed by writing the routines 
required to convert back and forth between serial 
and parallel. With serial addressing, it is possible to 



8116 
8126 
6138 
8146 
8158 
8168 
8178 
8188 
8198 
8288 
8218 
8228 
6238 
8248 
8258 
82<S6 
8278 
8288 
8296 
8388 
8318 
6326 
8338 
8346 
8358 
8368 
8376 
8386 
8398 
8486 
8418 
8428 
8438 
8448 
8456 
8468 
8476 



interface to devices capable of both input and 
output. Enough lines are available to implement a 
direction control bit and bi-directional transfers of 
four-bit groups. By applying the principles 
introduced here, connecting other devices to your 
Atari should present very few problems. D 



Listing 1. 

JOYSTICK PORT PRINTER HANDLER 
EPSON VERSION 

Program by Paul 5. Suanson 

OS equates 

HATABS = $631 A ; device handler address table 

PACTL = $0382 : port A control register 

PORTA = «D388 ; port A I/O register 

TRI61 =$0811 ; stick trigger 1 register 

; Program equates 

5rI6IN = $8688 ; start of neu handler 

DUftlY = $FFFF ; damy address for JMP vector 

«= ORIGIN 

; Start of new handler table 

feuTABLE 

; These are the new handler vectors, 

; presented in the order CIO expects them 

' .WORD OPEN-1 

.UORD CLOSE-1 

.WORD GETBYTE-1 

.WORD PUTBYTE-l 

.WORD STATUS-1 

.UORD SPECIAL- I 

; JMP to in it (also expected by CIO) 

ilNIT 

JMP EXIT ; duMiy init routine 

OPEN subroutine 

fiPEN 

LDA t*FF 5 set port A to "output" 
BNE PASETUP 

; CLOSE subroutine 

^LOSE 

LDA «6 ; set port A to "input" 

; Configure port A 

^SETUP 



8496 
8586 
8516 
8526 
8536 
8546 
8556 
6566 
8576 
6586 
8598 



8616 
8628 
8636 
8646 
6658 
6666 
8678 
8686 
8698 
8788 
8716 
8728 
8738 
8748 



LDX l$38 
STX PACTL 
STA PORTA 
LDA #«3C 
STA PACTL 
LDA »FF 
STA PORTA 
LDY «1 
RTS 



; enable data direction control 

; specify "input" or "output" 

I reset addressing mode 

: clear the port 

; OK status for CIO 



PUT BYTE subroutine 
^UTBYTE 
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8758 
8768 
8778 
8788 
8798 



LDY TRIGl 

WE PUTBYTE ; wait for busy line 

SEI 

Process byte to send 



8818 CHP »9B 
8828 BNE PUTl 
8838 LDA t$8D 
8848 PUTl 



is this an Atari EOL? 

ignore if not 

else convert to printer CR 



8858 


ORA l*M ; set for active high strobe 


8868 


STA PORTA ; and send byte to printer 


8878 


JSR JINIT : waste a few cycles 


8888 


m t$7F ; end the strobe pulse 


8898 


STA PORTA 


8988 




8918 


Uait for busy line 


8928 




8938 


LDY i8 


8948 Pirr2 


8958 


LDA TRIGl ; printer ready? 


8968 


BNE PUT3 ; yes - continue 



8998 



1818 
1828 
1838 
1848 
1858 
1868 
1878 



PUTS 



DEY 
BNE PI;T2 

LDY t$a^ 

CLI 
RTS 
3 

LDY #1 
CLI 
RTS 



; else keep waiting 
; tiaeout error cooe 



; no errors 



LDA HATABS.Y | get an ID byte 



Unimplefflented functions 

1898 SeTBHE 

1188 STATUS 

1118 SPECIAL 

1128 LDY »92 ; error code 

1138 EXIT 

1148 RTS 

1158 ; 

1168 ; Initialization code 

1178 i 

1188 PINIT 

1198 LDY 18 ; init index 

1288 PLOOP 

1218 

1228 

1238 

1248 

1258 

1266 

1278 

1288 

1298 

1388 

1318 , 

1328 FOUND 

1338 

1348 

1358 

1368 

1378 

1388 

1398 



CHP i'P 

BEQ FOUND 

INY 

INY 

INY 

BNE PLMP 



is this the "P" entry? 
yes, so change entry 
otherwise skip 3 bytes 



and keep looking for 'P' 



Change table entry so that 
it points to our new handler 



LDA INEWTABLEi255 
STA IttTABS+l.Y 
LDA <INEWTABLE/256 
STA HATABS+2,Y 



Isb of table addr 
issb 



1418 
1428 
1438 



The following J1P vector will be 
set up when the handler is loaded 

JMP DIWIY 



.mo 



Listing 2. 



100 REM » STICK-PORT PRINTER HflKDLER 

lie REM # BASIC LOADER 

120 REM # PROGRAM BY PAUL SHANSON 

130 REM 

140 HEM » HEAD HANDLER INTO ME^mRY 

150 HEM 

160 FOR RAM=1664 TO 1776 

170 READ BYTE:POKE RAM, BYTE : NEXT RAM 

180 REM 

190 REM » ADJUST RESET & JMP VECTORS 

200 REM 

210 POKE 1777,PEEKtl23 

220 POKE 1778,PEEKtl3J 

230 POKE 12,216:P0KE 13,6 

240 REM 

250 REM » HARMSTART INSTALLS HANDLER 

260 REM 

270 ? "PRINTE R HANDLER IN MEMORY" 

280 ? "PRESS a'jaiJ.'B.-lalH^i TO INSTALL" 

2?0 NEW 

300 REM 

310 REM * MACHINE LANGUAGE DATA 

320 DATA 142,6,146,6,212,6,169,6,212,6 

,212,6,76,215,6,169,255,208,2,169,0,16 

330 data' 211, 141, 0,211, 169, 60, 141, 2, 21 

1,169,255,141,0,211,160,1,96,172,17,20 

8,208,251,120,201,155 

340 DATA 208,2,169,13,9,128,141,0,211, 

32,140,6,41,127,141,0,211,160,0,173,17 

,208,208,7,136 

350 DATA 208,248,160,138,88,96,160,1,8 

8,96,160,146,96,160,0,185,26,3,201,80, 

240,5,200,200,200 

360 DATA 208,244,169,128,153,27,3,169, 

6,153,28,3,76 



CHECKSUM DATA 

(See pp. 20-24.) 

100 DATA 108,146,639,83,868,89,965,234 

, 98 , 830, 76 , 951 , 957, 358, 88 , 6490 

250 DATA 68,94,603,341,111,78,424,918, 

87,237,633,480,4074 



Educational Programs for — 

ATARI • VIC 20 

Tl 99/4A • TRS-80 CoCo 

COMMODORE 64 • MC-10 

only 46^7 00 



per 
cassette 



SAT Preparation, 
Alphabet, Algebra, Physics 
0M^ I and many others! 

Programs on Disk (Tl 99/4A & Com. 64) 



mosES 

Gnglrteerlng 



Request FREE Catalog: 

P.O. Box 11038 
Huntsville, AL 35805 



(205) 837-3356 
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by Joel Gluck 



This is no ordinary Our Game, no siree! This is a 
special edition. What makes it special? Well, for one 
thing, there'll be none of the usual features — no 
viewer mail, no tutorials. Instead, there's a big, ugly 
program listing and a whole bunch of excuses and 
explanations. 

Excuses and explanations. 

Listing 1 is a prototype of a game — sort of. I 
wrote it in order to give you, the reader, a good idea 
of what a prototype looks like, and to introduce you 
to the style of programming that our game (the game 
we are going to be writing together in the coming 
months) is going to be written in. 

In some ways, I have failed to achieve my purpose. 
The program is rather large (almost 9.5K) — some- 
thing a prototype shouldn't be. This is because I 
succumbed to the temptation to include features that 
should only appear in a final version. I had good 
reason for doing this; why should you have to spend 
valuable time typing in what is merely an unexciting 
prototype and not a full-fledged game? 

This pseudo-prototype game is called Four Letter 
Words (or FLW). The object is to spell a dozen 
unique combinations of the given four letters before 
your opponent can do the same. Most of the combi- 
nations are nonsense words, which count nonethe- 
less. You spell words by moving your "man" (repre- 
sented by either a "1" or a "2") and bumping into 
the desired letter on the playfield. Repeating letters 
in a word is not permitted. 

The above describes what would have been a very 
nice prototype. But noooo! I just wasn't satisfied. 

Superfluous Feature 1 : There is a special box in 
the middle of the playing field. By bumping into it, 
you can delete the last letter of the word you are 
currently building. 



Superfluous Feature 2: If you attempt to spell a 
word that is already on your opponent's list, as a 
penalty the last word on your list is transferred to 
your opponent's list. (Note: If you try to repeat a 
word already on your own list, you are buzzed at but 
nothing happens.) 

Superfluous Feature 3: There is a "Forbidden 
Word" which is announced at the beginning of each 
game. If you spell the word, you lose the game. 
Simple enough? 

Superfluous Feature 4: If you bump into your 
opponent's man, the two word-building displays 
switch. This means that whatever word you were 
working on, your opponent is now working on, and 
vice versa. 

Superfluous Feature 5: There are plenty of ele- 
mentary graphics and sound effects thrown in, just to 
liven things up. 

That, in a nutshell, is the game. It may not sound 
like much fun. I have found that to be true of many 
games — a description of the game can sound very 
dry (especially in today's world of television, adver- 
tising and hype). However, I assure you that FLW is 
good. I've had about ten people playtest the game, 
and all but one like it. As a matter of fact, many of the 
features mentioned above stem from comments I 
elicited from playtesters. 

Best of all, the game tries to achieve some of the 
game writing goals we've talked about in Our Game. 
For example, FLW is nonviolent, equally appealing 
to both sexes (and, to be hoped, a variety of age 
groups), and is a simultaneous two-player game. 

So what's missing? 

If FLW is so great, what's missing? Well, for one 
thing, the graphics are less than spectacular. I used 
character graphics (mode one), and did not modify 
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the character set to improve the game's appearance. 

Also, the game is not complete. It is missing a title 
sequence, instructions, options, and a proper ending. 
As a matter of fact, when the game ends, it just sits 
and waits until either player pushes his/her trigger 
— and then starts over. To exit the game you have to 
hit BREAK, SYSTEM RESET or the power switch. 

These deficiencies are not really deficiencies at all; 
they are common features of typical prototypes. The 
whole point of a prototype is to bring the basic idea 
of a game to life, not to create a finished product. 

Big and ugly. 

The listing itself, as I said before, is big and ugly. To 
be exact, it is 205 logical Unes long. And, since many 
of these lines take up more than one physical line, the 
resulting length is about 13 Atari-screen fulls. 

The ugliness of the listing can be attributed to a few 
things. For one, it has not been renumbered. This is 
for a reason; I frequently use line numbers to set off 
different parts of the program. This helps during 
programming and debugging; if I need to see a part of 
the program, I usually know the appropriate location 
of that part by line number. The strange numbering 
also helps reinforce the idea that the program is 
somewhat structured; it is divided into independent 
procedures. 



The program is also ugly in that there are few 
REMarks, and most of those are not very understand- 
able. This will not happen when we write our game. 
(Note: when typing in the listing, leave in all REMs 
that appear alone on a line. Frequently, these lines are 
referenced by GOSUBs or GOTOs.) 

There is other, random ugliness. Many lines are 
long, and some are almost maximum length. This is 
not a good thing. Also, there are many complex 
string statements that look like pure nonsense. I 
would have avoided them if I could, but I couldn't, so 
I didn't. 

The final insult. 

Well, there you are. I present you with a big, ugly 
program to type in to your computer, with only the 
slightest guarantee that it will be worthwhile. 

Gee, the least I could do would be to explain how 
the program works! 

Sorry, not a chance. It's not worth my while 
because it wouldn't do you any good. I've found that 
one does not learn much from typing in a program, 
even if there are accompanying explanations. If you'd 
like to learn from the experience, get a good book on 
Atari BASIC and figure out for yourself how what 
happens on the screen coincides with what's going on 
in the program. If you're more advanced than that, 
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Printer Interface 

• No Alari 850 '^-^ Interface Module needed 
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52 


27.95 
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32 


19.95 
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40 


21.95 


PRINTERS 
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GEMINI 15 
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OXIDATA ML-82A 
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AXIOM AT-100 
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try dissecting some of the more complex string 
statements in the program. 




FLW 

However, the best way to learn programming is to 
write you own programs, from scratch, often. Set 
problems or puzzles for yourself and solve them on 
your computer. Spend time experimenting with gra- 
phics, sound, and forms of input like the keyboard 
and the joysticks. Try new things, take on new chal- 
lenges. The more you do your own programming, the 
better a programmer you will be. 

Some things never change. 
No, Our Game wouldn't be quite the same with- 
out the traditional "call for mail." 

If you liked FLW and have ideas that could go into 
a final version of it, or if you didn't like it and have 
suggestions for improvement, or if you just have a 
better name for the game than FLW, send us mail! 
If you have any ideas for Our Game, send us mail! 
If you have any ideas about the state of computer /- 
video games in general, send us mail! 
The address is: 
OUR GAME 
c/o ANALOG Magazine 
P.O. Box 23 
Worcester, MA 01603 
Next month, it's back to the regular format. Don't 
miss the next Our Game! D 

Big, Ugly BASIC Listing 1. 



FOUR LETTER WORDS 
the Prototype 
Joel Gluck, Wov/Dec ' 
2 players^ joysticks 



'83 



1008 REM 

1065 REM 

1818 REM 

1020 REM 

1038 REM 

1280 GOSUB 2808 :REM 

1388 GOSUB 3800: REM 

1480 END 

2008 REM - INITIALIZE 

2180 DIM HSTIKtl5J,YSTIK(15J,GMflNClJ,H 

M0RD5C1) ,KH0RD(1) ,MQUEC13 ,KMaNCll,YMON 

C13 ,NLTS CI) , WORDS C208) , LITERS f 18 J 



INITIftLIZE 
GAME 



2118 DIM STPS (45, ADJUST CI), CONVERTS C4) 

2158 FOR Z=5 TO 15:READ X, V : KSTIK CZ) -X 

:YSTIKCZ)=V:NEXT Z 

2168 DATA 1,1,1,-1,1,0,8,8,-1,1,-1,-1, 

-1,8,8,8,0,1,0,-1,8,8 

2288 WALL=138 : DELETE=131 : BLANK=32 : SLOT 

= 13 

2250 XFLD=6:VFLD=3:WDSLEFT=23 

2388 GMAM CO) =49 : GCMN CD =178 : KWORD CO) =5 

:XW0RDC1)=11 

2310 XQUEC8)=l:XQUECl)=15:ADJUSTC0)=-3 

2:A0JUSTC1)=96 

2328 LTTERS="1234567898'" 

2338 FOR Z=8 TO 19 ."WORDS CZ»18+1, Z»ie + 1 

e)=LTTERSCl,18) SNEXT Z 

2358 FOR Z=l TO 4 

2368 STPSCZ,Z)=CHRSC65+INTCRNDC1)»26)) 

2370 IF Z=l THEN 2418 

2380 FOR N=l TO Z-1 

2398 IF STPSCH,N)=STPSCZ,Z) THEN POP : 

GOTO 2368 

2480 NEXT N 

2410 NEXT Z 

2580 GOSUB 8880 :REM - flash killer wor 

d 

2585 GRAPHICS 1*16 

2518 5ETC0L0R 8, 12, 6 : SETC0L8R 2,4,6:SE 

TCOLOR 3,9,4:SETC0L0R 1,1,6 

2558 COLOR UALL:PLOT S,2:DRAWT0 14,2:D 

RAWTO 14,23:DRAWT0 5,23:DRAWT0 5,2 

2552 FOR Z=0 TO 4:PL0T Z,14:DRAWT0 Z,2 
3:PL0T Z*15,14:DRaMT0 Z+15,23:NEXT Z 

2553 PLOT 8,2:DRaWT0 e,13:PL0T 19,2:DR 
AWTO 19,23 

2554 COLOR DELETE:PLOT 9,12:PL0T 9,13: 
PLOT 10,12:PL0T 18,13 

2560 CeL8R GMANC8):PL0T 1,8: COLOR GMAN 

CI) :PLOT 18,0 

2570 FOR LT=1 TO 4 :GLT=ASC CSTPS CLT,LT) 

)+32 

2580 FOR N=l TO 4:REM - nUMber Of each 

letter on field 
2688 GOSUB 2908: REM - PLACE LETTER GLT 
2620 NEXT N : NEXT LT 
2660 FOR P=e TO 1 

2678 GLT=GMANCP) : GOSUB 298e:REM - PLAC 
E MAN 

2688 XMANCP)=K:YMANCP)=Y 
2685 GOSUB 7888 : REM - CLEAR SLOTS 
2690 NW0RDSCP)=8 
2788 NEXT P 
2898 RETURN 

2988 REM - PLACE LETTER GLT Crtn X,V) 
2910 X= CINT CRND Cl)»4) +1)«2+XFLD-1 : Y=IN 
T CRND C1)#18)#2+YFLD 

2938 LOCATE X,Y,GS:IF GSOBLANK THEN 2 
918 

2948 SOUND 0,X+Y,12,8 
2958 COLOR GLT:PLOT X,Y 
2955 SOUND 8,0,0,8 
2960 RETURN 
3000 REM - GAME 
3820 P=INTCRNDC1)»2) 
3100 P=l-P 

3120 S=STICK;CP) :IF S = 15 THEN 3100 
3130 GOSUB 4000: REM - MOUE 
3148 GOTO 3100 
4888 REM - CHECK MOUE 

4188 XD=XSTIK(S) ;YD=YSTIKCS) :POKE 77,8 
4110 LOCATE XMANCP}*XD,YMANCP)+YD,G:IF 

G=WALL THEN GOSUB 7850: RETURN 
4112 IF G = GMANC1-P) THEN GOSUB 6080 :RE 
TURN 

4115 IF G=DELETE THEN GOSUB 7ie8:RETUR 
N :REM - DELETE CHAR 

4128 IF GOBLANK THEN GOSUB 42ee:RETUR 
N :REM - BUMPED SUMTHIN ' 
4125 REM - MOUE MAN 

4138 COLOR BLANK: PLOT XMAN CP) , YMAN CP) 
4135 SOUND e,P#38+10,8,8 

4148 XMAN CP) =XI«)N CP) +XD : YMAN CP) =YMAN CP 
)+YD 
4158 COLOR GMAN CP): PLOT XMAN CP) , VfMNCP 

4155 SOUND 0,0,0,8 
4168 RETURN 
4288 REM - BUMP 
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4210 IF G^EKCLflM THEM 60«8 

4220 COLOR G + 128:PL0T HMiiN fP3 +K0, VMAM C 

PJ+YD 

4230 IF IILT5CP)=0 OR MLT5CPJ=4 THEN GO 

SUB 700e:GOTO 4380 :REN -1st letter 

4240 FOR Z=l TO MLTStP) 

4250 IF CHR5CG+aDJU5TfPJ>=LTTEH5{P»5+Z 

,P»5+Z) THEN 4270 

4260 NEXT Z:GOTO 4300 

4270 SOUND 0,0,4,12:F0R PAUZ=1 TO 50:N 

EXT PAUZ:SOUND 0,8,0,0:REH - repeated 

letter 

4280 COLOR G:PL0T KMflN tP3 +HD, YMdN CPJ +Y 

D 

4290 RETURN 

4300 REM - letter is OK 

4310 NLTSCPJ=NLTStPJ+l 

4320 LTTERS CP»5+NLT5 tPJ , P»5+HLTS CPJ J =C 

HRSCG+flDJUSTtPJJ 

4330 COLOR BLANK : PLOT KMONfPJ +XD, YUAN C 

Pl+YD 

4340 COLOR G+ftD JUST tP3 : PLOT XWOHDCPJ-1 

+NLTS{PJ,0 

4350 FOR 5FX=20 TO 58 STEP 2 : SOUND 0,5 

FX+P*20,1O,8:NEXT 5FX : SOUND 0,0,0,0 

4360 GOSUB 4125: REM - MOVe Man 

4370 GLT=G:GOSUB 290e:REH - replace le 

tter on field 

4380 IF NLTStP)<4 THEN RETURN 

4400 REM - WORD COMPLETED 

4410 FOR Z=l TO 4 

4420 IF flSCCLTTERS(P*5+Z,P»5+Z3J<>aSCC 

STPS(Z,Z3J+ftDJUSTtPJ+32 THEN 4450 

4430 NEXT Z , 

4440 NM0RD5fl-PJ=13:P05ITI0N 5,1:? tt6; 

"forbiddenP'iGOTO 50ee:REM - word was 

deadly 

4450 REM - DID OPPONENT USE WORD? 

4455 IF NM0RDSC1-P3=8 THEN 4608:REM - 

opponent has no words 

4460 FOR Z=l TO 4 ^ „^,„„^ 

4470 CONVERTS CZ, ZJ=CHRS CflSC (LITERS tP*5 

+Z, P*5+ZJ ) -ADJUST (P) +flD JUST (1-P5 J 

4480 NEXT Z 

4490 FOR CH=1 TO NWORDS Cl-P) 

4500 IF CONVERTS (1, 4) =W0RDStfl-PJ*96+C 

H*4, tl-P)»96+CH»4+3) THEN 4520:REM - W 

ord was used already 

4510 NEXT CHtGOTO 4600 

4520 GOSUB 7200: REM - transfer a word 

4530 GOSUB 7O0O:REM - Clear slots 

4540 IF NW0RDSC1-P)>=12 THEN 5000 

4550 RETURN 

4600 REM - DID P CLOVER J USE WORD? 

4610 IF NMORDSCPJ^O THEN 470O:REM - P 

has no words 

4620 FOR CH=1 TO NHORDS(P) 

4630 IF LITERS tP»5+l,P«5+4J DWORDS CP»96 

tCH«4,P#96+CH«4+33 THEN 465e:REM - wor 

d was used already 

4640 NEXT CH:GOTO 4700 „„„*,„«„^ 

4650 FOR Z=0 TO 3:C0L0R ftSC CMORDS CP»96 

♦CH«4+Z , P»96 + CH«4+Z> 3 -ADJUST tP3 +128 

4655 PLOT Z+XQUE(P3,CH+l:HEXT Z 

4660 FOR 5FX=15 TO STEP -0.2:50UND 

,15-SFX,4,5FX:NEXT 5FX 

4670 FOR Z=0 TO 3: COLOR flSC CHORDS CP»96 

+CH«4+Z , P#96+CH»4+Z3 3 

4675 PLOT Z+XQUECP3 .CH+l:NEXT Z 

4680 GOSUB 7Oe0:RETURN 

4700 REM - THE WORD IS BRAND NEW! 

4710 NWORDS CPJ =HW0RDSCP3+1 

4720 FOR Z=l TO 4 

4730 WORDS CP»96+NW0RDSCP3»4+Z-1,P»96+N 

WORDS tP3»4+Z-13=LTTERSCP«5+Z,P*5+Z3 

4745 V=NW0RDSCP3+l:IF V>23 THEN V=l 
4750 POSITION XQUECP3,V:? tt6; WORDS CP»9 
6+NWORDS (Pl»4 , P*96+NW0RDS <PJ*'»t33 ; 
4770 FOR SFK^ISO TO 50 STEP -20: SOUND 
O,SFX,1O,10:FOR PAUZ=1 TO 18:NEXT PflUZ 
:SOUND 0,0,0,0:HEXT SFX 
4780 SOUND 0,0,0,0 
4785 WD5LEFT=WD5LEFT-1 

4790 GOSUB 7000 , ,,_ 

4800 IF WDSLEFT>0 AND NWJRDSCP3<12 THE 
N RETURN 



5000 REM - WE HAVE A WINNER 

5100 WINNER=P:IF NWORDS Cl-P3>NmRDSCP3 

THEN WINNER=1-P 
5110 X=XQUE(WINNER3 
5120 POSITION X,0:? «8;"winp" 
5125 FOR Z=X TO X+3:L0CATE Z,0,G:COLOR 

G:PLOT Z,14:DRAWT0 Z,23:NEXT Z 
5130 FOR N=4 TO 15 
5140 FOR 5FX=100 TO STEP -N 
5150 SOUND O,SFX,10,8:SOUND l,SFX/2,8, 
4:SETC0L0R 4,0, SFX 
5160 NEXT SFX: NEXT N 

5170 SOUND O,e,O,0:SETCOLOR 4,0,O:SOUN 
D 1,0,0,0 

5180 IF STRIGCO3Z0 OR 5TRIGC13=0 THEN 
RUN 

5190 GOTO 5180 
6000 REM - SWAP TOP DISPLAYS 
6005 IF HLTS(03=O AND NLTSC13=0 THEN G 
OSUB 7050: RETURN 

6810 SOUND 2.10,12,8:SOUND 3,12,12,8 
6020 C0HVERTSC1,43=LTTEHSC1,43 
6830 FOR Z=l TO 4 

6848 IF Z<=:NLTSC13 THEN LITERS CZ, Z3=CH 
RS CASC CLTTERS C5+Z , 5+Z3 3 -ADJUST C13 +AD JU 
5TC033 

6050 IF Z<=NLTSC03 THEN LITERS C5tZ,5+Z 
3 =CHHS CASC CCONVERTS CZ , Z3 3 -ADJUST C03 +flD 
JU5TC133 
6060 NEXT Z 

6870 Z=MLTSC03 : NLT5 C03 =NLT5 C13 :NLTSC13 
-Z 

6080 SETCOLOR 4,0,15 
6100 FOR N=0 TO 1 
6110 FOR Z=l TO 4 
6120 IF Z>NLT5CN3 THEN COLOR SLOT: PLOT 

XW0RDCN3+Z-l,e:G0T0 6140 
6130 COLOR ASCCLTTERSCN*5+Z,N*5+Z33 :PL 
OT XW0RD(N3+Z-1,0 
6140 NEXT Z:NEXT N 
6150 SETCOLOR 4,0,0 

6160 FOR SFX=18 TO 8 STEP -1:S0UND 2,5 
FX,12,5FX:S0UND 3, SFX+2, 12, SFX : NEXT SF 
X 

6170 RETURN 

7000 REM - CLEAR SLOTS 
7818 COLOR SLOT: PLOT XW0RDCP3 ,0 :DRAWTO 

XWORDCP3+3,e 
7828 NLTSCP3=8 
7030 RETURN 
7050 REM - BUMP SOUND 
7060 FOR SFX=15 TO STEP -1.5 
7070 SOUND 8,255-SFX,10,SFX:F0R N=l TO 

1 : NEXT N 
7086 SOUND 8,8,8,8:F0R N=l TO 1:NEXT N 
:NEXT SFX 
7090 RETURN 

7100 REM - DELETE LETTER 
7110 IF NLTSCP3=0 THEN GOSUB 7eS0:RETU 
RN 

7120 FOR 5FX::58 TO STEP -3: SOUND O.S 
FX,8,10:NEXT SFX:SOUND 0,0,0,0 
7130 COLOR SLOT: PLOT XWORD CP3 +NLTS CP3 - 
1.0 

7140 ?JLT5(P3=HLT5tP3-l 
7150 RETURN 

7200 REM - TRANSFER A WORD FROM P TO 1 
-P 

7250 Y=CH+l:IF Y>23 THEN Y=l 
7260 POSITION XQUE C1-P3 , Y : ? tt6;LTTERSC 
P»5+l,P*5+43; 

7265 SOUND 0, 254, 10, 8 :SOUND 1,255,10,8 
7270 IF NWORDS CP3=0 THEN 7400 
7280 Y=NW0RDSCP3+l:IF V>23 THEN Y=l 
7290 POSITION X0UECP3,Y:? »6;" "' : RE 
M - 4 SPACES 

7295 NWORDS C1-P3=NW0RDSC1-P3+1 
7297 Y=NW0RDSCl-P3+l:IF Y>23 THEN Y=l 
7300 FOR Z=0 TO 3 

7305 CONVERTS CI, 13 =CHRS CASC CW0R0SCP»96 
+ NWORDS CP3»4 + Z, P»96 + NW0RD5 CP3»4 + Z3 3 -AD 
JUST CP3 +ADJUST C1-P3 3 

7310 WORDS CC1-P3»96 + NW0RD3C1-P3#4+Z, fl 
-P3»96+NWORDSCl-P3*4+ZJ=CONVERTSCl,13 
7315 COLOR A5CCC0NVERTSC1,133 :PLOT XOU 
EC1-P3+Z,V 
7320 NEXT Z 
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7325 FOR SFX=8 TO 50 STEP 4:50UND 2,SF 

K,8,15:MEXT SFX:50UHI) 8,8,0,0 : SOUND 1, 

0,0,0:SOUND 2,0,8,6 

7330 HMORDS{PJ=HMORDStPJ-l 

7480 FOR SFX=0 TO 248 STEP 18 : SOUND 8, 

SFX,ie,8:S0UND 1,SFX+10,18,8:NEXT SFX : 

SOUND 8,8,8,0:S0UND 1,0,0,8 

7500 RETURN 

8880 REM - FLASH SECRET WORD 

8810 GRAPHICS 2+16 

8828 SETCOLOR 0, 8, 15 : SETCOLOR 1,4,4 

8858 POSITION 4,4:? «6;"do not spell" 

8100 FOR Z=l TO 7 

8110 POSITION 8,6:? »6;STPS 

8120 FOR SFX=15 TO 8 STEP -8.7+0.6»(Z= 

7) 

8138 SETCOLOR 8, Z, SFX : SOUND 0,135, 12, S 

FX/2:S0UND 1, SFX*2,8,4:NEXT SFX:S8UND 

1,8,8,0 

8140 POSITION 8,6:? »6;" ■':REM - fo 

ur spaces 

8158 FOR SFX=1 TO 28:NEXT SFX 

8160 NEXT Z 

8178 RETURN 



2552 DftTfl 439,23,421,498,362,753,835,8 
48,166,729,324,328,412,528,814,7546 
2900 OflTfl 164,910,191,721,178,242,814, 
966,398,588,236,257,714,768,886,7937 
4118 DflTfl 213,589,696,8,715,167,913,70 
5,250,222,794,20,151,771,872,7878 
4248 DflTft 88,188,829,648,242,888,641,2 
82,989,950,310,317,375,116,50,6737 
4400 DATA 602,189,618,556,934,636,879, 
194,840,561,814,654,125,892,954,9440 
4548 DATA 90,805,399,14,391,926,134,43 
3,420,858,413,422,991,260,546,7894 
4728 DATA 199,202,566,454,201,549,233, 
421,962,67,526,332,929,649,328,6618 
5138 DATA 362,648,106,813,633,336,745, 
954,95,273,768,183,787,883,551,8849 
6878 DATA 465,505,149,184,388,92,558,6 
54,939,799,181,31,843,794,889,7311 
7068 DATA 814,938,938,888,286,228,579, 
459, 287 , 799 , 335 , 748 , 232 , 487 , 537, 8387 
7280 DATA 439,53,972,992,187,221,967,1 
68,558,756,546,82,886,925,346,8010 
8020 DATA 423,631,196,521,20,598,225,8 
71,558,883,4846 



CHECKSUM DATA 

(See pp. 20-24.) 

1880 DATA 16,183,189,491,278,148,205,2 
65,897,761,760,718,798,328,964,6841 
2380 DATA 151,781,908,386,186,688,564, 
732,954,513,550,29,357,295,251,7089 
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DRUPER 
FRSCRL 

Far Atari 4DD, BDD, nr 
XL SEries CnmputErs 

* RECjuirES DNE disk drive and 4BK RAM (multiple drives supparted) 

* Data types: CharactBr, String, Integer, Real, File, Arrays 

* Includes Editor prngram (snurce included) 

* Includes Main Menu pragram (source included) 

* Supports sound, graphics, binary file loads, calls, many more , , . 

* Easy to use; No linking required; Compile and execute immediately 

* Field tested tor over six months 

* Royalty free license included 

PricE! $79,95 



Draper Snft-warE 

307 Forest G-rave Drive 
Richardson, TX 75DBD 

(214) Baa-g743 

DEALER INQUIRIES WELCOME 
Atari is TM nf Atari, Inc. 
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Over 1000 Programs with Full Time Audio Narration, Pictures & Text! 

Interactive Tutorial Programs 



All along you've heard there isn't much of a 
selection of low cost microcomputer course- 
ware. Well, do you want to learn Physics, 
Psychology, or Philosophy? Accounting or 
Auto Mechanics? Sociology, Supervision or 
Statistics? Economics or Electronics? How 
about English as a Second Language? Would 
you like to teach your children Math or Read- 
ing? If you do, then we have the educational 
programs for you— and at affordable prices. 

It's true there aren't many companies that of- 
fer full-length courses in subjects other than 
reading and arithmetic, and what is offered 
seems to be drills, tests, games, or simula- 
tions. What you really want is a course that 
covers the subject with, say. 16 full-length 
lessons called tutorial programs, where you in- 
teract with an expert programmer backed by a 
staff of experts. That's exactly what we have. 

Is there something wrong with our software? 
Well, we don't ask you to enter your name so 
we can drop it into some later text. We don't 
ask you to type in your answer and refuse to 
accept it if it's not spelled just right. And, we 
don't branch around a lot when you make an 
error. Our programs simply let you know if 
you're wrong by proceeding only when you 
select the right multiple-choice answer. 

This proven learning-by-positive-reinforce- 
ment method lets you proceed quickly and 
smoothly through the programs, without a lot of 
cute tncks. But, if you're a devoted com- 
puterist or game freak you may be disap- 
pointed at the lack of motion in most of the pic- 
tures, or our special visual effects. We have 
some dandies, like the mushroom cloud that 
rises over Hiroshima in our History series, but 
your learning is not distracted by needless 
special effects. 

OVER 1000 PROGRAMS 

We have 64 courses of 1 6 half-hour pro- 
grams; 1024 programs! All are easy-reading, 
upper- and lower-case. All are in color. All are 
illustrated by frequent graphics composed of 
special and regular characters. And. best of 
all, every frame of every program is accom- 
panied by high-quality, full-time audio narration 
by professional voice talent. David Stanton. 
James Mathers, Pam Barrymore. Recorded 
and played back, not synthesized or digitized! 



- If your child is having trouble with Reading or 
Math, or if he or she is exceptional, and 
could benefit from professionally program- 
rTied lessons or courses, then you need our 
educational programs for your Atari, Apple, 
or TRS 80 to help your child. 

- If you want to build your math skills, we have 
programs on Numbers and their meanings. 
Addition, Subtraction, Multiplication, Divi- 
sion, Fractions, Decimals, Percents, Angles, 
Graphs, Word Problems, Algebra, Statistics. 
There are ten series in all, 160 math pro- 
grams. Again, all with color, pictures, and a 
friendly tutor's voice — all the time. 

-If your verbal skills need polishing, try our 
Talk & Teach programs on the alphabet, 
spelling skills, and every level of vocabulary; 
Sight Words or Learn by Phonics; develop 
Reading Comprehension skills from stories 
and articles There's even a series on the 
Great Classics. 

-For self-development, try a 1 6-program 
course in Economics or Psychology. Or 
Supervision, Sociology, Counseling (Per- 
sonal, School, or Employee), Writing, 
Business, Philosophy, Government, World 
History, U.S. History, or Accounting. 



— For vocational skills, study our 1 6-program 
courses in Electronics. Fluid Power, Auto 
Mechanics, Shop. Carpentry, Construction, 
Meat Processing, Military Skills (64 pro- 
grams), and there are many more. 
There are 832 programs for your Atari, Apple 
and TRS 80 Mod I III '4 and 160 for the Color 
Computer. Send for a free catalog 

Would you like to do something more than 
play games on your computer? Tired of 
squeaks and robotics and want to hear a 
human voice? Do you want to further your 
education or help your children along in theirs? 
Now you can. For just $8.80, we'll send you 
one cassette with 2 programs from the course 
of your choice, 100% guaranteed to work in 
your Atari, Apple, or TRS 80 computer, and 
you can try us out. Better yet, get one full 
course of 1 6 programs on 8 cassettes for only 
$59.90. Atari Master Cartridge, $9.95; Apple 
T/T Board, $99.00; and T/T Player, $79.00. 
That's less than books and tuition for most col- 
lege classes. And we offer a 1 day, 1 00% ex- 
change allowance. Does your alma mater? Send 
us your check, or call us at 1-800-654-3871 
with your Visa/Master Card number. We'll send 
your educational software pre-paid. Please 
allow 1 5 days delivery. Or see your computer 
dealer. He may have some of our courses in 
stock. You've got nothing to lose but your games! 



We're Your Educational Software Source. 



Course 


No. of Programs 


Reading 


256 


Mathematics 


128 


Comprehension 


48 


History 


32 


Algebra 


16 


Spelling 


16 


Government 


16 



16 Programs in each of the following: 

Carpentry-Electronics-Health Services 

Office Skills-Statistics-First Aid/Safety 

Economics-Business-Accounting-Psychol ogy^ 

And Many More! 



For your Atari 400/600/800/1200, you will 
need the Atari cassette recorder and the Dorsett 
4001 Educational Master Cartridge, $9.95. For 
your Apple II, you will need the Dorsett M402 
T./T plug-in board, $99.00, and the M401 stereo 
cassette player, $79.00. All programs listed are 
available for TRS 80, I, III. 4, which require the 
M203 speaker converter, $99.00, and 401 
stereo cassette player, $79.00. 

Send for a catalog of over 1000 programs 
for Atari, TRS 80, Apple, etc. 



For more information, write or call; TOLL FREE 1 -o00-d54-3o71 

Dealer inquiries welcome | L-l-J 



DORSETT 

Educational Systems, Inc. 

P.O. Box 1 226, Norman, OK 73070 
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by Peter C. Budgell 



16K Cassette or 24K Disk 



The following program can be used to create 7- 
color pictures under joystick and keyboard control if 
you have the GTIA chip. 

A variety of uses exist for pictures which can be 
drawn on the screen, saved, and brought back under 
program control. Several commercial packages are 
available to do this, and many users will have seen the 
results in graphics adventure programs. Most com- 
mercial packages work in the hi-res Graphics IVi 
mode, and compensate for the 4-color limit by mix- 
ing colors in some very interesting textures. Screens 
are stored either by dumping screen memory to stor- 
age media, or by storing the sequence of commands 
used to create the pictures and later reconstructing 
the pictures at machine language speeds. 

The following program can be used to create pic- 
tures in the Graphics 10/7 mode which I introduced 
in ANALOG Issue 14, taking advantage of its 7- 
color capability, and 80*80 pixel resolution. Because 
this screen occupies 3200 bytes without the text 
window, its storage is very rapid. It is easy to add 
more features to the program, and relatively easy to 



convert it to most of the other graphics modes. 

Featured in the program is a machine language fill 
routine. It is the familiar type which flows out in a 
diamond shape to fill any bordered area or to over- 
write any solid color. The source code for the fill 
routine is included for those who would like to mod- 
ify it to produce textured surfaces, by changing the 
color to be plotted in accordance with an imaginative 
algorithm. The routine is written to formally use 
CIO to do the plotting work. As written, it works in 
any graphics mode except Graphics 8, and requires 
only a change to the routines that check the screen 
size limits. 

The program begins by POKEing the fill routine 
into page 6. Buffers which store the coordinates of 
points plotted by the fill routine are defined, and 
their locations in memory are POKEd for the fill 
routine to use. Then Graphics 10/7 is set up. 

The user is presented with a blank screen and a 
flashing cursor. The cursor is moved with the joy- 
stick. To paint on the screen, press the trigger. 

A variety of commands are available, and are 
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selected by pressing certain keys. The menu is pre- 
sented if any non-command key is pressed. The 
menu includes: 

D - DRAWTO — Pairs of points will be 
connected by a straight line. 

F - FILL — A bordered shape will be filled. 
C - COLOR — The available colors are 
selected in sequence. 

X - CLEAR — The screen is cleared. 
L - LOAD — Load a picture from storage 
media. 

S - SAVE — Save the screen on disk or 
cassette. The higher speed short-IRG cassette 
mode is used. 

R - COLOR REGISTER — Modify color 
register to gain complete color control. 
These routines start at Line 1000. More features can 
be selected starting at Line 280, and put in subrou- 
tines at the end of the program. 

Other graphics modes can be used if: 

L Screen limits in Lines 170 and 180 are 
changed. 

2. Lines 82 thru 93 are deleted and replaced 
with a call to Graphics 3 through 7. 

3. Lines 71 through 80 are removed, 

4. Line 68 is changed to read: 

68 DIM C{3) :CC0)=0:C(lJ=l:C(2)=:2:Cf3)=3 

5. Line 3000 has CVAL= changed to 
CVAL=4 or CVAL=2 as appropriate. 

6. In Lines 4040 and 5040, locations 856 and 
857 are POKEd thusly: 



Graphics Mode 


3 


4 


5 


6 


7 


POKE 856, 


200 


144 


32 


64 


128 


POKE 857, 





1 


3 


6 


13 



7. Fill routine limits are changed thusly: 
Line 34, BASIC program, change 80 to screen 
width. 

Line 38, BASIC program, change 80 to screen 
height. 
An understanding of the program can be used to 
implement Graphics 9 through 1 1 , with or without a 
text window. 

The subroutine at Lines 4030 to 4070 can be used 
in another program to load a picture from disk, if the 
user provides the file name in Line 4030. If the 
cassette is used, then Line 4030 should read: 

4030 THftP 4070:0PEN ttl , 4, 128, "C : " 

The background in a graphics screen is in COLOR 
0. In order to erase part of a picture, select COLOR 
and overwrite the unwanted image. 

The biggest feature a user might wish to add would 
be a routine to draw a circle or polygon. Remember 
to trap errors, especially in plotting off the screen. 

The fill routine alone can be used in other pro- 
grams. The speed of the fill is limited by CIO, and 
commercial programs frequently go straight to 



screen memory to avoid CIO's overhead, which is 
caused by its generality. 

Imagination is the most important ingredient in 
using a painter program. A slide show can be set up to 
show the results if the pictures are brought up 
sequentially by a loop in a program. The easiest way 
is to have the file names in data statements. Fun is 
available for those 3 years of age and up! D 



GRAPHICS 10/7 PfllHTER 
IHCLUDIHG FILL ROUTINE 
P. BUDGELL 1983 



LIMIT5 
80 DOWN, 



5 GRAPHICS 2:? 116; "GRAPHICS 10/7":? «6 

;"please stand by..." 

6 POKE 752,l:G0SUB 400 

10 REM 

11 REM 

12 REM 

13 REM 

14 DIM ASC256J ,B$(2563,CSt2563,DSt2563 
:REM THE BUFFERS 

15 DIM XSTICKC15),YSTICKtl5),NAMESC15J 
,H0VE$Ce} 

16 REM 

17 REM STICK DIRECTIONS 

18 REM 

19 RESTORE 20:F0R H=l TO 15:READ I:KST 
ICKCH3=I:READ I :¥STICK CH3=I : NEKT H 

20 DATA 0,0,0,0,0,0,0,0,1,1,1,-1,1,8,0 
,0,-1,1,-1,-1,-1,0,0,0,0,1,0,-1,0,0 

21 REM 

22 REM THE FILL SUBROUTINE. 
SET AT 80 PIXELS ACROSS, 

23 REM ME USE PAGE 6 

24 REM 

25 RESTORE 26: FOR 1=1536 TO 1791 : HEAD 
H:POKE I,H:NEKT I 

26 DATA 104,104,104,133,209,173,254,6 

27 DATA 133,212,173,255,6,133,213,169 

28 DATA 0,133,231,160,1,165,85,145 

29 DATA 203,133,233,133,214,165,84,145 

30 DATA 205,133,234,133,215,132,232,32 

31 DATA 184,6,133,230,197,209,208,1 

32 DATA 96,32,221,6,177,203,133,214 

33 DATA 177,205,133,215,230,214,165,21 
4 

34 DATA 201,80,176,8,32,184,6,208 

35 DATA 3,32,164,6,198,214,198,214 

36 DATA 165,214,201,255,240,8,32,184 

37 DATA 6,208,3,32,164,6,230,214 

38 DATA 230,215,165,215,201,80,176,8 

39 DATA 32,134,6,208,3,32,164,6 

40 DATA 198,215,198,215,165,215,201,25 
5 

41 DATA 240,8,32,184,6,208,3,32 

42 DATA 164,6,198,232,240,4,200,76 

43 DATA 52,6,164,231,240,95,132,232 

44 DATA 177,212,145,205,177,207,145,20 
3 

45 DATA 136,208,245,160,1,169,0,133 

46 DATA 231,76,52,6,32,221,6,230 

47 DATA 231,240,75,164,231,165,214,145 

48 DATA 207,165,215,145,212,164,235,96 

49 DATA 32,200,6,169,7,157,66,3 

50 DATA 32,86,228,164,235,197,230,96 

51 DATA 132,235,165,214,133,85,165,215 

52 DATA 133,84,162,96,169,0,157,72 

53 DATA 3,157,73,3,96,32,200,6 

54 DATA 169,11,157,66,3,165,209,32 

55 DATA 86,228,164,235,96,165,234,133 

56 DATA 84,165,233,133,85,96,32,237 

57 DATA 6,104,104,96,0,0,0,0 

58 REM 

59 REM SET UP BUFFER ADDRESSES FOR ML 
ROUTINE ACCESS 

60 REM 

61 J=INT(ADRCA$3/2563 ; 
POKE 203,I:P0KE 204, J 

62 JrINTtADR(BS3/2563 : 
POKE 205,I:P0KE 206, J 

63 J=INT(A0R{CS3/2563 ; 
POKE 207,I:P0KE 208, J 

64 Ji:INT{ADRCD53/2563 1 
POKE 1790,I:P0KE 1791, J 

65 REM 

66 REM 



:I=ADRCAS3-J«256; 
II=ADRCBS3-J»256; 
iI=ADRCCS3-J*256: 
:I=ADR(D$3-J»256: 
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DISABLE BREAK KEY 



67 DIN DLI$(32) 

68 &IM C (6J : C (8) =0 : C tl J =:2 : C C2) =3 ! C C3J = 
9:Cf4J=ie:CC5J=ll:Ct65=8 

69 GRAPHICS 7:P0KE 752,1 
79 REM 

71 POKE 623,128:REM GTIfl GR . 18 

72 POKE 87,10 :REM FOOL SCREEN HANDLER 

73 REM 

74 POKE 7e4,0:REM COLOR 6 

75 POKE 705, 12: REM COLOR 2 

76 POKE 706,38:RE« COLOR 3 

77 POKE 788,10B:REM COLOR 9 

78 POKE 709,148:REM COLOR 10 

79 POKE 7ie,282:REM COLOR 11 

80 POKE 712,252 :REM COLOR 8 

81 REM 

82 RESTORE 92 : FOR H=8 TO 31: READ I:POK 
E ADRCDLIS)+K,I:NEKT K 

83 POKE PEEK C560J+256»PEEK £5611 +84,141 

84 POKE 513,IMTCflDRCDLlS3/256J :POKE 51 
2,ADRtDLlS)-PEEKC513J»256 

85 POKE 54286,192:REM ENABLE DLI 

86 ? ■■ THIS IS GRAPHICS 10/7":? " 

P. BUDGELL 1983": FOR 1=1 TO 250 :NE 
HT I 

87 OPEN tt2.4,0. "K:" 

88 REM 

89 REM 
98 D=PEEK(16)-128:IF D<8 THEN 92 

91 POKE 16,D:P0KE 53774, D 

92 DATA 72,169,8,141,10,212,141,27,288 
,141,26,288,169,144,69,79,37 

93 DATA 78,141,24,288,169,18,69,79,37, 
78,141,23,288,184,64 

94 REM 

95 RESTORE 96:F0R 1=1 TO 6:READ A:MOUE 
$CI,I1=CHR$CA] :NEKT I 

96 DATA 184,162,16,76,86,228 

97 K=40 : V=40 : COLOR C tl) : CMORK=C CIJ : CUA 
L=1:CUHDER=0 

98 GOSUB 588: REM INTRODUCTION 

99 A=PEEKt764) :IF A<255 THEN GOSUB 288 

180 GOSUB 170:G0SUB iei:GOTO 99 

181 LOCATE X,Y,CUNDER:COLOR CMORK:PLOT 
K,Y:INUC=fCMORK=83«CClJ :FOR MAIT=1 TO 
3: NEXT WAIT 

lie COLOR INUC:PLOT K,V:FOR MAIT=1 TO 

2: NEXT NAIT 

128 COLOR CUHDER:PLOT X,Y 

138 IF STRIGf8)=8 THEN COLOR CUORK:PLO 

T K Y 

148' RETURN 

170 IrSTICKtOJ :X=X+KSTICK(I3 :IF X=80 T 

HEN X=79 

175 IF X=-l THEN X=8 

180 y=Y+YSTICK(I) :IF Y=80 THEN Y=79 

185 IF Y=-l THEN Y=0 

186 IF K15 THEN LOCATE X,Y,CUNDER2 
190 RETURN 

208 GET lt2, CHAR: POKE 764,255 

210 IF CHAR=ASC("D"J THEN GOSUB 1008:G 

OTO 588 

220 IF CHAR=ASCC"F") THEN GOSUB 2888:6 

OTO 508 

230 IF CHAR=ASCC"C") THEN GOSUB 3888 :G 

OTO 500 

240 IF CHAR=A5C("X"J THEN PRINT CHRSCl 

253:PRIHT tt6;CHR$C1253 :GOTO 488 

258 IF CHAR=ASCC"L") THEN GOSUB 4800:6 

OTO 500 

260 IF CHAR=ASCC"S"J THEN GOSUB 5000:6 

OTO 500 

270 IF CHAR=ASC("R") THEN GOSUB 6000:G 

OTO 500 

480 ? CHR S (125} ; "MMMSd^MSniBEEBlSM 

mMjmm" 

410 ? " D=DRAUTO W)DE F=FILL C=COLOR 

CHANGE" 

420 ? " X=NEM SCREEN L=LOAD S=SAUE 

SCREEN" 

430 ? " R=COLOR REG. 

MODE"; 
440 RETURN 

500 ? " REGULAR DRAM MODE - PRESS TRIG 
GER" 

510 ? "BBilJBaB ";CUAL 

520 ? " CTO ERASE USE COLOR J" 



SPACE=REGULAR 



LOAD WHAT FILE? 



525 D=PEEKtl6J-128:IF D<0 THEN 530 

526 POKE 16,D:P0KE 53774, D 
530 RETURN 

1000 ? CHRS (1255 ;"[aiEGiiaEaai: press T 

RIGGER TO DEFINE" 

1010 ? "NEW STARTPOINT; PRESS AGAIN TO 

DRAWTO":? "PRESS ANY KEY TO EXIT" 
1015 GOSUB 101: IF STRIG(03=8 THEN POKE 

53279, 0:XO=X:YO=Y:GOSUB 1099 
1020 A=PEEK{7643 :IF A<255 THEN RETURN 
1830 GOSUB 170:G0T0 1015 
1899 IF STRIG(83=e THEN 1099 
1188 GOSUB 170: IF STRIG(0]=0 THEN COLO 
R CHORK:PLOT X8,Y8:DRAMT0 X,Y:POKE 532 
79,0:G0T0 1500 

1110 A=PEEK(7643 :IF A<255 THEN POP : RE 
TURN 

1111 GOSUB 181:G0T0 1108 
1580 IF STRIG(03=8 THEN 1588 
1599 RETURN 

2880 COLOR CUNDER2:PL0T X,Y:P0SITI0N X 
, Y : I=USR (1536 , CU0RK3 : CUNDER2=CU0RK : RET 
URN 

3888 CUAL=CUAL+l:IF CUAL=7 THEN CUAL=8 
3810 CO LOR C(CgAL3 :CM0RK=CCCUAL3 :? "■ 
HOSLH = "iCWORK 
3028 RETURN 
4888 ? CHR$(1253 
:TRAP 4878 
4810 ? "GIUE NAME SUCH AS D1:XX.Y OR 
C:" 

4828 ? " FILE NAME ";:INPUT NAMES:IF N 
AMES="C:" OR NAMES="C" THEN GOTO 4100 
4838 OPEN ttl , 4 , , NAMES 

4040 POKE 850,7:P0KE 852, PEEK (88) :POKE 
853,PEEK(893 :POKE 856,128:P0KE 857,12 
:REM SET UP lOCB ttl 
4850 I=USR(ADR(MOUES3 3 

4868 FOR 1=8 TO 8:GET ttl,A:POKE 784+1, 
ASNEXT I 

4870 CLOSE ttl: POKE 54286,192 : TRAP 4000 
8: RETURN 

4180 ? " BHiMIBIIEiaH" : OPEN ttl, 4, 12 
9, "C:": GOTO 4040: REM SHORT IRG FOR CAS 

SETTE 

5000 ? Mill II I Ml I'lX'B I I t ii*<**i 

■l?":TRAP 5070 

5010 ? " GIVE NAME eg. Dl:XX.Y or C:" 

5020 ? "FILE NAME ";:INPUT NAMESrIF NA 

MES="C:" OR NArCS="C" THEN GOTO 5180 

5030 OPEN ttl, 8,0, NAMES 

5840 POKE 850, 11: POKE 852, PEEK (883 : POK 

E 853,PEEK(893 :POKE 856,128:P0KE 857,1 

2: REM SET UP lOCB ttl 

5850 I=USR(ADR(MOVES3 3 :REM MULTIPLE OF 

128 BYTES MUST BE MOVED 
5860 FOR 1=8 TO 8:PUT ttl, PEEK (704+13 :N 
EXT I: REM COLOR REGISTERS LAST 
5070 CLOSE ttl: POKE 54286,192 : TRAP 4008 
0: RETURN 
5100 -> 



HIT RETURN AFTER PREPARING SA 



5101 TRAP 5120:LPRINT :REM INITIALIZE 

5120 TRAP 5070 

5130 OPEN ttl,8,128,"C:":REM SHORT IRG 

5150 GOTO 5048 

6808 ? CHRS (1253; "GIUE REGISTER tt TO C 

HANGE":TRAP 6090 

6010 ? "BETI-EEN 784 AND 712 INCLUSIUE" 

6828 ? " REGISTER ";: INPUT REG 

6838 IF REG<7e4 OR REG>712 THEN 6810 

6040 ? " GIUE BRIGHTNESS 0-15 ";:INP 

UT BRIGHT 

6050 IF BRIGHT<8 OR BRIGHT>15 THEN 684 



6868 ? " GIVE COLOR 8-15 ";: INPUT C 

OL 

6878 IF COL<0 OR C0L>15 THEN 6060 

6088 POKE REG,C0L*15+BRIGHT 

6890 TRAP 40000: RETURN 



(CHECKSUM DATA next page.) 
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CHECKSUM DATA 

(See pp. 20-24.) 

5 DflTft 832,23,848,232,325,260,259,776, 

269,367,275,678,321,256,578,6291 

23 DftTA 636,265,379,195,228,919,45,1*, 

757,728,257,793,920,999,421,7458 

38 DATA 954,635,280,682,914,728,279,75 

5,453,66,102,664,999,52,945,8428 

53 DftTft 335,958,250,763,295,283,527,26 

1,117,132,147,594,276,798,978,6714 

68 OflTft 793,317,263,810,217,272,552,29 

9,338,506,775,739,489,268,886,7516 

83 DflTfl 442,634,12,218,507,193,292,945 

,405,944,271,279,576,375,491,6584 

98 DATA 171,700,163,107,976,796,15,593 

,275,541,657,548,586,608,667,7403 

210 DATA 627,633,634,571,650,661,664,6 

25,862,804,771,599,617,81,966,9765 

525 DflTfl 246,276,598,391,892,655,666,9 

,681,641,552,995,657,821,104,8184 

3000 DATA 852,391,785,550,843,166,794, 

667,108,943,692,367,133,797,889,8977 

5030 DATA 808,357,333,116,694,843,220, 

698,668,732,646,603,158,388,794,8058 

6050 DATA 949,863,31,683,923,3449 



8558 
8568 
8578 
8588 
8598 



LDA «8iSFF 



LIMITED TOE SPACE 



STA BUFD+1 ; IN PAGE 8 



8618 
6628 
8638 



8658 



8678 
8688 
8698 



8718 
8728 
8738 



8118 
8128 
8138 
8148 
8158 



8178 



Assembly Listing. 
FILL ROUTINE USIfffi CIO 
CIO EQUATES USED 



ilO = *E456 
ICCOM = $8342 
ICBLEN = $8348 
CGBINR = $87 
CPBINR = $8B 



8198 
8288 
8218 
8228 
8238 
8248 
8256 
8268 
8278 
8288 
8298 



GET Bimtf RECORD 
PUT BMRY RECORD 



= $CB 

= $CD 

BUFC= $CF 

BUFD= $D4 

^POS= $55 

YPOS= $54 



: ADRESSES FOR IND.Y 
; ADDRESSING FOR 
J PIXEL COORDINATE 
i STORAGE 

: X COORDINATE see OS 
; Y COORDINATE " " 



8318 
8328 
8338 
8348 
8358 
8368 
8378 
8388 
8398 



ioLOR = $D1 ; COLOR TO PLOT 

THE FOLLOWING LOCATIONS CAN OM.Y 
BE USED TEMPORARILY, BECAUSE THEY 
ARE RESERVED FOR THE FLOATING POINT 
ROUTINES. 



841B 
6428 
8438 



dOLOVER = $E6 

coifmcu = $E7 

COUNTffl.D = $E8 

i^PSTOR = $E9 
YPSTOR = $EA 
XP = $D6 
YP = $D7 
TBI = $EB 



: COLOR TO COMER 
) t NBU PIXELS 
: I PIXELS TO TEST 

; STORE ORIGINAL XPOS 

: X COORDINATE 
: Y COORDINATE 
; TO STORE Y INDEX 



8458 
8468 
8478 



THE FILL ROUTINE USES PAGE 6 
«= $8688 



8498 
6588 
8518 
8528 
8538 
6548 



PLA 

PLA 

PLA 

STA COLOR 

LDA $86FE 

STA BUFD 



THE COLOR TO PLOT 

BUFD ADDRESS STORED 
HERE BECAUSE OF THE 



8758 
8768 
8778 
8788 
8798 



LDA 
STA 
LOY 
LDA 
STA 
STA 
STA 
LDA 
STA 
STA 
STA 
STY 
JSR 
STA 
CW 
BNE 
RTS 



18 

COUNTNEU 

ii ; 

XPOS : 

(BlffA),Y 

XPSTOR 

XP ; 

YPOS J 

(BIFB),Y 

YPSTOR 

YP 

COIWTOLD 

LOCATE 

COLOVER 

COLOR 

PRELOOP 



; INITIALIZATION 
ONE PIXEL FIRST TIME 
FROM O.S. 



FOR THE FIRST LOCATE 
FROM O.S. 



FOR THE FIRST LOCATE 
; WE PIXEL 
GET COLOR TO COVER 

ITSELF ? 

IF ITSELF QUIT OR GET 
INFINITE LOOP ! 



(BIFB),Y 



8828 
8838 



8858 
8868 
6878 



^ELOOP JSR PLOT 
LOOP LDA (BUFA),Y 

STAXP 

LDA 

STA YP 

d00P8 INC XP 
LDAXP 
W 188 
BCS LOOPl 
JSR LOCATE 



8918 
8928 
8938 
8948 
8958 
8968 
8978 
8988 
8998 
1888 
1818 
1628 
1838 
1848 
1858 
1868 
1878 



M. LOOPl 
JSR KEEP 



lioOPl DEC XP 
DECXP 
LDAXP 
CMP 1255 
BEQ L00P2 
JSR LOCATE 
BNE L00P2 
JSR KEEP 



X FOR CURRENT PIXEL 

Y FOR CURRENT PIXEL 

TEST TO RIGHT 

RHS LIMIT TO SCREEN 

IF WITHIN SCREB^ 
THEN SEE IF THE PIXEL 
CONTAINS THE COLOR TO 
BE OUERURIHEN. THE 
LOCATE RM/TINE 
CONTAINS THE COMPARE. 



PLOT IT AND MARK IT 
FOR ITS an TEST 
NEXT TIME THROUGH Tl€ 
LIST OF LOMTIONS. 



CHECK SCREm LHS 



1898 ^00P2 INC XP 



IfC YP 
LDA YP 
Of #88 
BCS L00P3 
JSR LOCATE 
BNE LOOPS 
JSR KEEP 



1188 

1118 

1128 

1138 

1148 

1158 

1168 

1178 . 

1188 L00P3 DEC YP 
DEC YP 
LDAYP 
CWf255 
BEQ L00P4 
JSR LOCATE 
Bte L00P4 
JSR KEEP 



TEST BELOW 
BOTTOM OF SCREm 



1198 

1288 

1218 

1228 

1238 

1248 

1258 

1268 : 

1278 L00P4 I^C COUNTdD 

1288 BEQ OONELOOP ; ALL POINTS DONE 

1298 INY ; ELSE DO l€XT POINT 

1388 JMP LO(F 

1318 : 

1328 DONELOOP LDY COUNTNEU 
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133B BEQ m\mi 

1348 

1358 

I36i 

1378 

1388 

1398 

1488 , 

1418 TWWSFER LDA (BIFD),Y 



IF t«) NEU POINTS 
IN THE COLOR TO 
COO REMAIN 



Transfer program. 



STY COUMIOLD 



THIS BECOMES THE 
fei I PIXELS TO 
PLOT AND TEST 



1428 

1438 

1448 

1458 

1468 

1478 

1488 

1498 

1586 

1518 

1528 

1538 , 

1548 KEEP JSR PLOT 



STA (BIFB),Y 

LDA (BIFO.Y 

STA (BlfA),Y 

DEY 

BfC TRANSFER 

LDY II 

LDA 16 

STA COtWTNEW 

JMP LOOP ; 



MOyE BUFFERS 



i INITIALIZE 
BEGIN AGAIN 



TIC SUBROUTINES 



1558 

1568 

1578 

1588 

1598 

1688 

1618 

1628 

1638 

1648 , 

1658 LOCATE JSR POS 



INC COUHTNEU 

BEQ RETURN2 

LDY COUNINEU 

LDAXP 

STA (BIFO.Y 

LDA YP 

STA (BUFD),Y 

LDYTEM 

RTS 



1668 

1678 

1688 

1698 

1788 

1718 

1728 , 

1738 POS STY TEM 



LDA ICGBINR 
STA ICCGM.X 
JSR CIO 
LDYTEM 
CHP COLOWER 
RTS 



Y REG, IN TEM 

BUFFER [H^RFLOWS 

ST(KE THE COORD. 
; OF THIS PIXEL 
FOR PLOniNG AND 
; TESTING. 
RECOVER Y REG. 



CIO LOCATE 
PIXEL IN A REG. 



1748 
1758 
1768 
1778 
1788 
1798 
1888 
1818 
1828 
1838 
1848 ^LOT JSR POS 



LDAXP 

STAXPOS 

LDA YP 

STA YPOS 

LDX i$68 

LDA 18 

STA ICBLEN.X 

STA ICH.ENtl,;< 

RTS 



POSITION X 

ANDY 

TO USE IN LOCATE 

AND IN PLOT 

ONE PIXEL AS 

; IN ACCtH. 



LDA 8CPBINR 
STA ICCOM.X 
LDA COLOR 
JSR CIO 
LDYTEM 
RTS 



1858 

1868 

1878 

1886 

1898 

1988 

1918 , 

1928 RETURN8 LDA YPSTIK 

1938 STA YPOS 

1948 LDA XPSTOR 

1958 STA XPOS 

1968 RTS 

1978 : 

1988 RErURN2 JSR RETIW^8 



THE ONE TO PLOT 



8186 ; 
6116 : 
6126 
6136 : 
6146 
8158 
6168 
6176 



PICTURE TR(WSFER 



6198 
6286 
6218 
6228 
6238 
6246 
6258 
6268 
6276 
6286 ; 



*= 48668 

PLA 
PLA 

STA $8355 
PLA 

STA $6354 
LDA 16 
STA $8358 
LDA «$28 
STA $8359 
LDA 17 
STA $8352 
LDX l$18 
JSR $E456 
RTS 



TEWIS 

ICBADR4H$ie 

ICBCmaii 



MAX POSSIK.E LfflGTH 
C. GET BIN. «EC. 



IGNORE ERRORS 



1998 
2686 
2818 
2626 
2838 
2848 
2858 



PLA 
PLA 
RTS 



UE EXITED A SUBROUTINE 
SO POP RETURN ADDRESS 
TO BASIC 



TO USE FOR ANY GIWPHICS 
MODE OTHER TtWN 8, FIX 
TtC SCREEN LIMIT TESTS. 



A LIMITED 
NUMBER OF 
BACK ISSUES 
IS AVAILABLE. 



ISSUES 

2,8, 11, 12, 13&14 
$4.00 EACH 



ANALOG BACK ISSUES 

P. O. BOX 23 
WORCESTER, MA 01603 






New 



k' ' # « 



l^^ 

v^*'*' ..^^^ 









, %^'*' 







BOOKS for ATARI 400/600XL/800XL 

1200XL 

ATARr BASIC - Learning by Using 

An excellent book for the beginner. 
Many short programs and learning exer- 
cises. All important features of the 
ATARI computers are described (screen 
drawings, special sounds, keys, paddles, 
joysticks, specialized screen routines, 
graphics, sound applications, peeks, pokes, 
and special stuff). 

Order-No. 164 £7.95 

Games for the ATARI Computer 
This book describes advanced program- 
ming techniques like player-missile- 
graphics and use of the hardware-registers. 
Contains many ready to run programs in 
BASIC and one called GUNFIGHT in 
machine language. 
Order-No. 162 S7.95 

How to program your ATARI in 6502 

Machine Language 

Introduction to machine language for the 

BASIC programmer. 

Order-No. 169 S9.95 

FORTH on the ATARI - Learning by 
Using 

Introduction, programs, applications, 
learning exercises. 

Order-No. 170 S7.95 

All programs from book No. 170 on disk. 
Order-No. 7319 S22.00 only! 

A Look into the Future-ASTROLOGY 

on your ATARI 800. How to calculate 
your own horoscope. Including listing of 
the program. 
Order-No. 171 S9.95 

HACKERBOOK for your Atari computer 

Tips-t-tricks-Very important subroutines 
in 6502 machine language. How to make 
bootable cassettes, disks, and EPROMs. 
Complete construction article and soft- 
ware on how to build an EPROM burner. 
Order-No. 172 S9.95 

SMALL BUSINESS SOFTWARE FOR 
ALL ATARI COMPUTERS 

SUPERMAIL (500 addresses on 1 diski 

Completely written in FORTH. Comes on 

autoboot disk. No cartridge, no DOS, no 

FORTH language required. 

Order-No. 7312 S49.00 

SUPERINVENTORY (1000 items p.disk) 

Completely written in FORTH. Same as 

above. (Disk only) 

Order-No. 7320 S49.00 

BUSIPACK-1 (written in FORTH). Com- 
plete order entry, inventory, mailing and 
invoicing. (Disk only). 
Order-No. 7313 S98.00 

Microcomputer Hardware Handbook 
Order-No. 29 S 14.95 



ATCASH 

Convert your ATARI 800 into a powerful 

cash register. (Disk only). 

Order-No. 7303 S49.95 

Invoicing program in BASIC 

Order-No. 7201 (C) S29.95 

Order-No. 7200 (D) S39.95 

Mailing List in BASIC 

Order-No. 7212 (C) S19.95 

Order-No. 7213 (D) S24.95 

Inventory control in BASIC 

Order-No. 7214 (C) S19.95 

Order-No. 7215 (D) S24.95 

SOFTWARE IN MACHINE LANGUAGE 

FOR ATARI 

ATMONA-1 

Machine language monitor. 

Order-No. 7022 (C) S19.95 

ATMONA-2 

This is a tracer (debugger) that lets you 
explore the ATARI RAM/ROM area. 
You can stop at previously selected 
address, opcode, or operand. Also very 
valuable in understanding the micropro- 
cessor. At each stop, all registers of the 
CPU may be changed, Includes Atmona-1. 
Order-No. 7049 cassette S49.95 
Order-No. 7050 disk S54.00 

ATMAS 

Macro-Assembler for ATARI-800/48K. 
One of the most powerful editor 
assemblers on the market. Versatile editor 
with scrolling. Up to 17k of source-code. 
Very fast, translates 5k source-code in 
about 5 seconds. Source code can be 
saved on disk or cassette (lncl.Atmona-1). 
Order-No. 7099 disk S89.00 

Order-No. 7999 cartridge SI 29.00 
ATMS APPLICATION DISK 
All programs and machine language sub- 
routines from Book No.l69 on disk. 
Order-No. 7311 S20.00 

ATAS 

Same as ATMAS but without macro- 
capability. (32K and 48K RAM) 
Order-No. 7098 S49.95 

ATEXT-1 

This wordprocessor is an excellent buy 
for your money. It features screen oriented 
editing, scrolling, string search (even 
nested), left and right margin justification. 
Over 3(D commands. Text can be saved on 
disk or cassette. 

Order-No. 7210 cassette S29.95 

Order-No. 7216 disk S34.95 

Order-No. 7217 cartridge S69.00 



Hon 



FORTH for the ATARI 

FORTH from ELCOMP PUBLISHING, Inc. 
is an extended Fig-Forth-version, Editor 
and I/O package included. Utility package 
includes decompiler, sector copy. Hex- 
dump (ASCII), ATARI filehandling, total 
graphic and sound, joystick program and 
player missile. Extremely powerful! 
Order-No.7055(D) reg.S99.00sale S39.95 
Floating point package with trigonometric 
functions (0-900). 
Order-No. 7230 disk S29.95 

Learn FORTH 

A subset of Fig-Forth for the beginner. 
On disk (32k RAM) or cass. |16k RAM). 
Order-No.7053 reg. 79.00 saleS19.95 

HARDWARE-ADD-ONs for ATARI 

PRINTER INTERFACE 

This construction article comes with 
printed circuit board and software. You 
can use the EPSON printer without the 
ATARI printer interface. (Works with 
gameport 3 and 4). 

Order-No. 7211 SI 9.95 

300 Baud serial interface (RS232-I-5V) 
Software with connector and construc- 
tion article. 
Order-No. 7291 S 19.95 

EPROM BURNER for ATARI 400/800 
KIT. Printed circuit board incl. software 
and extensive construction article. 
Order-No. 7292 S49.00 

EPROM BOARD (CARTRIDGE) 
Holds two 4k EPROMs (2532). EPROMs 
not included. 

Order-No. 7043 S29.9S 

EPROM BOARD KIT 
Same as above but bare board only with 
description. 

Order-No. 7224 S14.95 

Astrology and Biorhythm for ATARI 
Order-Nol 7223 D/c S29.95 

Birth control with the AtarKKnaus Ogino) 
Order-No. 7222 disk only! 629.95 
The APPLE in your Hand, BRAND NEW! 
Book includes introduction to 6502 
Machine Language and FORTH. BASIC 
programs never published before! 
Order-No. 178 (200 pages) S12.95 
CP/M -MBASIC and the OSBORNE 
computer 

Business Applications, compl. listings of 
mailing list, datablock, inventory, in- 
voicing and more. 
Order-No. 177 S9.95 



SUPERSOFTWARE f.the Commodore-64 
BLIZTEXT! - The best wordprocessor 
for the C-64 in the whole universe. In- 
cludes terminal software for electronic 
mail. 

Order-No. 4965(62 pages manual)S89.00 
MACROFIRE - Editor/Assembler for 
the C-64 

The best macroassembler you can buy! 
Order-No. 4963 S89.00 

SUPERBOOKS for your C-64 
The Great Book of Games, Vol. I 
64 programs for the Commodore-64. 
Order-No. 182 S9.95 

Programs from this book on disk S19.95 
MORE ON THE SIXTYFOUR 
Tips, tricks, hints, very important, sub- 
routines. 

Order-No. 182 S9.95 

Programs from this book on disk SI 9.95 
How to program in 6502 Machine 
Language on your C-64 
Order-No. 184 SI 2.95 

Commodore-64 Tune-up, Vol. I 
How to exfiand your C-64. 
Order-No. 185 SI 2.95 

Small Business Programs for the C-64 
Order-No. 186 SI 2.95 

HARDWARE ADD-ONs for your C-64 
Parallel printer interface, KIT 
Order-No. 4990 S19.g5 

Universal Experimenter Board 
Order-No. 4970 S9.95 

Expansion Board (holds 4 exp. boards) 
Order-No. 4992 $29.95 

BOOKS, SOFTWARE, ADD-ONs for 
VIC-20, APPLE II, OSBORNE, TIMEX i 
■I- OSI computers I 

Tricks for VICs (Book) 
Order-No. 176 S9.95 

Universal Experim.board for the VIC-20 
(Save money with this great board). This 
board plugs right into the expansion slot 
of the VIC-20. 

Order-No. 4844 reg. S19.95 sale S9.95 
Programming in BASIC and machine 
language on the ZX-81 (82) TIMEX1000 
Order-No. 174 (book) S9.95 

The Custom APPLE -i- Other Mysteries 
A complete guide to customizing the 
APPLE software and hardware. 
Order-No. 680 824.95 

We also stock the boards which are used 
in the book No. 680 (bareboards). 



\^\ 



PAYMENT: Check, money order, VISA, MASTER 

CARD, Eurocheck, ACCESS, Interbank 

Prepeid orders add S3.50 for shipping (USA) 

S5.00 handling for C.O.D. 

All orders outside USA: add 15% shippir>g, California 

residents add 6.5 % sales tax. 



Elcomp Publishing, Inc, 53 Redrocl< Lane, Pomona CA 91766, Phone:(714)623-8314, Telex: 29 81 91 



irk of ATARI Inc., VIC-20 + Commodofe-64 are trademarks of Co 



of Digital Research 
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A 

NEW 
LANGUAGE 

FOR 

THE ATARI ! 




ACTION! 

by Clinton Parker 

OPTIMIZED SYSTEMS SOFTWARE, Inc. 

1173-D Saratoga, Sunnyvale Road 

San Jose, California 95129 

16K SuperCartridge $99.00 



by Brian Moriarty 



Atari users have a surprisingly wide selection of 
programming languages from which to choose. We've 
got three dialects of BASIC, four C compilers, eight or 
nine FORTHs, a pair of Pascals, PILOT, Logo, WSFN, 
a Lisp interpreter, numerous 6502 assemblers and a 
couple of hybrids like BASM and Mirth. Not bad for a 
"game machine," eh? 

Leave it to Optimized Systems Software to come up 
with yet another way to tell your Atari what to do. OSS 
has been the leading purveyor of alternative operating 
systems and languages for the Atari since before I can 
remember. Action! is only the first of a whole new line 
of OSS products that's been causing quite a stir in the 
Atari underground. It's been touted as the first pro- 
gramming environment developed specifically for the 
6502, and the fastest high-level language available for 
the Atari. These are pretty strong claims which, after 
playing with the system for several weeks, appear to be 
totally justified. As you are about to read. 



New! Improved! 
In syntax and overall structure, Action! bears a 
strong resemblance to Pascal, C and other members of 
the Algol family. It's a procedure-oriented language 
featuring global and local variables, user-definable 
functions, parameter passing and powerful structures 
like DO loops, FOR-TO, WHILE, UNTIL and IF- 
THEN-ELSE. Three basic data types are recognized: 
8-bit BYTEs (or CHARacters), 16-bit signed INTegers 
and 16-bit unsigned CARDinals. The system also sup- 
ports a variety of extended data types including poin- 
ters, subscripted arrays, strings and records. 



AND 


FI 


OR UNTIL 


— 


f 


ARRAY 


FOR 


POINTER WHILE 


O 


) 


BYTE 


FUNC 


PROC XOR 


# 




CARD 


IF 


RETURN = 


> 


r 


CHAR 


INCLUDE 


RSH 


>= 


1 


DEFINE 


INT 


SET * 


< 


// 


DO 


LSH 


STEP / 


>= 


» 


ELSE 


MOD 


THEN & 


$ 


f 


ELSEIF 


MODULE 


TO % 


< 




EXIT 


OD 


TYPE ! 


@ 






Listing 1. 








Reserved keywords. 







Listing 1 includes all of the keywords reserved for 
use by the Action! system. These are used to declare 
variables, define new procedures and/or functions and 
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to control the operation of the compiler. BASIC vete- 
rans will note with alarm the total lack of keywords that 
do interesting things in and of themselves, like SET- 
COLOR or DRAWTO. They're missing for a very 
good reason. Unlike BASIC, Action! does not limit 
your programming to a limited number of safe little 
commands. It invites you (indeed, forces you) to invent 
the commands you need to solve problems yourself. 
The keywords in Listing 1 are the tools the system 
gives you to, in effect, write your own language. If this 
prospect doesn't excite you, maybe BASIC has been 
holding your hand for too long. 



Print 


PrintE 


PrintD PrintDE 


PrintB 


PrintBE 


PrintBD 


PrintBDE PrintC PrintCE 


PrintCD 


PrintCDE 


PrintI 


PrintlE 


PrintlD PrintlDE 


Put 


PutE 


PutD 


PutDE 


Inputs InputSD 


InputMD 


Open 


Close 


XIO 


Note Point 


Graphics 


SetColor 


Plot 


DrawTo 


Fill Position 


Sound 


SndRst 


SCopy 


SCopyS 


SAssign StrB 


StrC 


Strl 


Break 


Error 


Zero SetBlock 


MoveBlock 








Listing 2. 
Library procedures. 





Don't get the impression that Action! leaves you 
completely on your own, though. The cartridge 
includes a library of useful I/O, graphics and system- 
level routines that you can use to start building more 
elaborate programs. Listings 2 and 3 will give you an 
idea of what's available. The resemblance of many 
Action! library words to Atari BASIC commands is 
intentional; the kindly folks at OSS want to make your 
transition from BASIC to Action! as painless as possi- 
ble. This concern for familiarity unfortunately extends 
to the Action! graphics library, which offers exactly the 
same (limited) access to the hardware as Atari BASIC. 
Other weak points of the cartridge library include 
inadequate control over memory allocation and a mys- 
terious lack of support for the Atari's built-in floating 
point math package. 



InputB 


InputC Input! InputBD InputCD 


InputID 


GetD 


Locate Paddle PTrig Stick 


STrig 


SCompare 


ValB ValC Vall Rand 


Peek 


PeekC 


Poke PokeC 

Listing 3. 
Library functions. 





Most of the elements in an Action! program are 
delimited by space characters — as many as you like! 
You don't have to keep track of line numbers, semicol- 
ons, brackets or any other nuisances that can make you 
feel more like a bookkeeper than a programmer. Just 
follow a few simple rules regarding commas and paren- 
theses, and you're all set. Action!'s modern design 
encourages a wide-open style of program composition. 



with plenty of freedom regarding the use of blank lines, 
upper and lower-case characters, indentation, com- 
ments and other flourishes that improve readability 
and make coding more fun. 

A four-part system. 

Internally, the Action! system consists of four dis- 
tinct modules. There's an editor for creating and modi- 
fying program source text, a compiler which translates 
source text into executable machine code, a run-time 
library that supports the compiled code (described 
above), and a monitor which acts as a switchboard 
between the other three modules and (if you're using a 
disk drive) DOS. 

A very important distinction between Action! and 
every other compiled language for the Atari is that these 
modules do not have to be loaded in separately from 
disk. All four are tucked away inside the SuperCar- 
tridge, safe from accidental erasure and ready whenever 
you need them. Further, the system is arranged so that 
your source text and compiled code can reside in 
memory at the same time. This self-contained design 
combines the performance of a compiled language with 
a degree of interactiveness usually associated with an 
interpreter. A stroll through the modules will show you 
what I mean. 

The editor. 

Somebody at OSS once told me that the text editor 
in the Action! cartridge was originally going to be 
marketed by itself as a word processor. It isn't hard to 
believe. There are so many features and options in the 
Action! editor that I can only touch on the most 
interesting here. 

Actionl's editor uses your TV as a virtual window 
into a text area that can extend well beyond the edges of 
the screen. Unlike the standard Atari screen editor, you 
can type up to 240 characters on a single line with no 
cursor wraparound. How? When your cursor reaches 
the right edge of the screen, the line you're working on 
(and only that line) starts to coarse-scroll to the left. 
You can keep right on typing until a buzzer informs you 
that you've reached the rightmost position in that line 
— the right "edge" of the text window. Move your 
cursor back towards the left, and the line scrolls to the 
right until you hit the left edge of the window. This 
design neatly eliminates the usual confusion between 
"logical" and "physical" lines of text. 

Hitting CTRL/SHIFT/">" or "<" instantly moves 
you to the rightmost or leftmost character in the cur- 
rent line, respectively. You can also change the maxi- 
mum width of the text window to any convenient 
value, such as how many characters will fit on your 
printer. 

The Action! editor allows you to create a second 
text window, co-resident in memory but otherwise 
completely independent from the main window. The 
2-window editing mode is represented visually by a 
split screen, with the bottom half of the image devoted 
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to the auxiliary window. You can jump back and forth 
between the two windows and transfer blocks of text if 
desired; the editor remembers where you were working 
in each window and automatically returns you to that 
point when you return. Additionally, you can save, 
load or delete text in one window without disturbing 
the contents of the other. That means, for example, that 
you could load a library of routines into the auxiliary 
window, review them and copy the ones you need into 
your main program, which has been in full view the 
whole time! Sure beats LISTing and ENTERing lines of 
BASIC, doesn't it? 

Other noteworthy capabilities of the Action! editor 
include global search and replace, instant access to the 
beginning or end of a file and the ability to delete, move 
and copy selected blocks of text. The block move and 
copy functions are implemented so nicely that I have to 
tell you about them. When you hit the SHIFT/DE- 
LETE keys, the line you're working on disappears, just 
as with the Atari screen editor. But the line isn't gone 
forever. It's being held in a buffer, waiting to be moved 
or copied to anywhere else in your text window(s). 
Simply move the cursor to a likely spot and hit 
CTRL/SHIFT/"P" (for paste) to dump the contents 
of the buffer. Several adjacent lines of text can be sent to 
the buffer by repeatedly "deleting" them with SHIFT/- 



DELETE. Actionl's method of picking up and drop- 
ping blocks of text feels very natural if you're used to 
the Atari screen editor, and it also eliminates the 
annoyance of losing a line of work by accidentally 
hitting SHIFT/DELETE. Incidentally, you can auto- 
matically undo any changes you have made to a line of 
text by hitdng CTRL/SHIFT/"U" before leaving the 
line. Luxurious. 

Before you toss out your Atari Writer cartridge, let 
me point out a couple of small but irritating problems 
in the Action! editor. There's a feature called tagging 
which allows you to mark any location in your text by 
assigning it a unique one-character identifier. You can 
later return to that point in the text at any time by 
calling its ID code. It's a good idea that, unfortunately, 
isn't pulled off particularly well. If you set a tag in a line 
and change even a single character in that line, the tag 
disappears. This restriction (which is documented) 
considerably reduces the usefulness of the tagging 
option, to say the least. 

My other gripe is with the way the cursor 
appears to flash and jump around the screen 
when it is being moved up or down, as if it 
isn't sure where to go next. The solid command 
line on the bottom of the screen also seems to jerk 
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occasionally as you cursor around. Minor cosme- 
tic points, perhaps, but an unstable cursor seems 
out of place in this otherwise superb little text 
editor. 

The monitor. 

After you've put the finishing touches on an Action! 
program and saved it out to disk, what next? Press the 
CTRL/SHIFT/"M" keys simultaneously and you'll 
find yourself staring at a barren white bar across the top 
of your screen. This is Actionl's monitor, the central 
interface between the editor, compiler, machine and 
user. 

Monitor functions are invoked by typing a one- 
character code letter. You can select various compila- 
tion options, save and load compiled programs, exam- 
ine the values of variables and memory locations and 
trace the execution of your programs. You can even use 
the X (execute) directive to interactively test almost any 
procedure or function. This capability is very unusual 
(and useful) in a compiled programming language. 

The compiler. 

Unlike Atari BASIC, which compiles each line of 
program text as it is typed. Action! requires that your 
program be explicitly translated into machine code 
before it can be executed. This isn't nearly as formida- 
ble as it sounds. All you have to do is type the letter C 
from within the Action! monitor. 

The compiler accepts source text from either the 
editor (default), or from a text file saved onto cassette 
or disk. If you've been using both text windows. 
Action! will compile only the text in the window you 
last edited. Compilation is almost unbelievably rapid, 
especially when the source is the editor. I've never seen 
Action! take more than a few seconds to compile even 
a fairly large program that was in the editor. Small 
programs are compiled before you take your finger off 
die RETURN key. You can optionally instruct the 
compiler to list each line of source text to the screen or a 
printer as it is being compiled. This slows the compila- 
tion considerably, however. 

A compile error causes the system to display the line 
where the error occurred, along with an error message 
number. Surprisingly for an OSS product, there are no 
English error messages. If you re-enter the editor after a 
compile error, you'll find the cursor obligingly positi- 
oned over the questionable spot in your text. 

Successfully compiled code is executed by typing the 
letter R (run) from within the Action! monitor. If 
you're accustomed to the leisurely pace of Atari 
BASIC, get ready for a shock. OSS isn't kidding when 
they say Action! is fast. 

How fast is fast? 

Execution speed is very important to Atari pro- 
grammers. Why? Because much of the software written 
for the Atari relies heavily on graphics, where a few 
extra machine cycles in the wrong place can make the 
difference between a spectacular special effect and an 



interesting but unmarketable demo. High speed isn't 
likely to hurt a non-graphics program, either. This is in 
accordance with Moriarty's Maxim: It is much easier to 
slow down a computer program than it is to speed it up. 

A number of attempts have been made to devise a 
universal method for comparing the speed perfor- 
mance of computer languages and hardware. In Sep- 
tember of 1981, Byte magazine published an iterative 
number-crunching algorithm called the Sieve of Erat- 
osthenes, which calculates all of the 1,899 prime 
numbers between 3 and 16,384.* The Sieve has since 
become the informal industry standard for clocking the 
speed of microcomputer languages. 

Listing 4 is an implementation of the Sieve in Atari 
BASIC. It requires 19,490 jiffies or approximately SVz 
minutes to execute on an unmodified 48K Atari 800 
system. I recognize that Listing 4 is not the most 
efficient way to write the Sieve in Atari BASIC, but it is 
the clearest and most portable way, and that's what 
counts in this application. You might like to try re- 
writing the Sieve for better speed performance. I've 
achieved improvements of better than 30% with tricky 
receding. 



*Jim Gilbreath, "A High-Level Language Benchmark." Byte, VI, 9 (Sep- 
tember 1981), pp. 180-198. 
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Listing 4. 

10 REM * ERATOSTHENES SIEUE 

11 DIM FL6GS(8191> 

12 POKE 553,0 

13 POKE 19,0;P0KE 20,0 

14 COUNTzO 

15 FOR 1=1 TO 8191 

16 FLflGS(I,IJ="T" 

17 NEHT I 

18 FOR 1=0 TO 8190 

19 IF FI_0GSCI + 1,I + 1J="F" THEN 27 

20 PRIME=I+I+3 

21 K=I+PRIME 

22 IF K>8190 THEN 26 

23 FLflGS(K+l,K+l)="F" 

24 KzK+PRIME 

25 GOTO 22 

26 C0UNT=C0UNT+1 

27 NEKT I 

28 TIME=PEEKf20)+256*PEEK(19> 

29 POKE 559,34 

30 ? COUNT;" PRIMES IN" 

31 ? TIME;" JIFFIE5Q" 



CHECKSUM DATA 
(See pp. 20-24.) 

10 OftTO 941,347,921,5,772,308,90,393,3 

14,892,919,849,588,596,860,8795 

25 DATA 623,689,395,581,796,17,419,352 





Although I love standards, I don't like the Sieve. It's 
not easy for beginners to understand, it takes too long 
(in BASIC, anyway), and it doesn't test the Atari under 
real-world conditions, with lots of 6502 processor time 
being "stolen" by Antic for video DMA. I wanted a 
benchmark that anybody could appreciate, operating 
under the kind of DMA conditions an Atari program is 
likely to find itself up against. 

Back in Issue 11,1 devised a little program that fills a 
GRAPHICS 24 screen with color, one byte (eight pix- 
els) at a time. It was used to compare a couple of BASIC 
compilers at the time, but it's equally valid in any 
run-time environment. My definitive BASIC imple- 
mentation of this test appears in Listing 5. Screen- 
Fill, as the program shall henceforth be known, exe- 
cutes in 4025 jiffies or about 67 seconds on a 48K 800. 
(Again, improvements are possible, but for the sake of 
clarity let's stick to Listing 5 .) I'll be using Screen-Fill 
in conjunction with the Sieve to judge the performance 
of every new language I review from now on. So let it be 
written; so let it be done. 

Listing 5. 



19 NEKT I 

20 TIME=PEEKf20J+256»PEEKC19J 

21 GRAPHICS 

22 PRINT TIME;" JIFFIES" 



CHECKSUM DATA 

(See pp. 20-24.) 

10 DftTfl 206,5,2,185,233,103,695,394,78 
6,399,557,157,527,4249 



OSS includes a implementation of the Sieve bench- 
mark in their Action! documentation. 1 rewrote the 
code slightly to make it match my BASIC implementa- 
tion more closely; the modified program is shown in 
Listing 6. It executes in 89 jiffies or just under a second 
and a half. I'll save you a calculation by pointing out 
that the Sieve runs about 219 times faster in Action! 
than it does in Atari BASIC. 



Listing 6. 



BYTE RTCL0K=20, 
SDMCTL=559 



addr of sys tihier 
DMA control 



BYTE URRflY FLAGS C8190J 
CARD COUNT, I, K, PRIME, TIME 
PROC SIEUE t J 



SDMCTL=0 
RTCLOK=0 



Shut Off Antic 

only one tiner needed 



COUNT=0 

FOR 1=0 TO 8190 

DO 

FLAGS fIJ='T 

OD 



init count 
and flags 



FOR 1=0 TO 8190 
DO 

IF FLAG5CI)='T THEN 
PRIME=I+I+3 
K=I+PRIME 
WHILE K<=8190 
DO 

FLAGS CK5='F 
K==+PRIME 
OD 
C0UNT==+1 
FI 
OD 



TIME=RTCLOK 
5DMCTL=34 



get tiner reading 
restore screen 



PRINTF("XE Y.U PRIMES IN", COUNT) 
PRINTFC"KE AM JIFFIES", TIME} 

RETURN 



10 REM * SCREEN-FILL BENCHMARK 

11 GRAPHICS 24 

12 POKE 19,0:POKE 20,0 

13 SCREEN=PEEKt88)+256»PEEKC89) 

14 FOR 1=0 TO 31 

15 FOR J=0 TO 239 

16 POKE SCREEN+J,255 

17 NEHT J 

18 SCREEN=SCREEN+240 



Unconvinced? Listing 7 is an Action! implementa- 
tion of Screen-Fill. This demanding little gem exe- 
cutes in 32 jiffies (slightly more than half a second), or 
126 times faster than its BASIC counterpart under 
maximum DMA handicap. And if you cheat by replac- 
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ing the nested FOR-TO loops with an Action! SETB- 
LOCK procedure in the form: 

SETBLOCK CSCREEN, 7688 , 255) 

you'll obtain an execution time of just five jiffies. This is 
essentially the same amount of time it takes the equival- 
ent machine-language code to do the same job. No 
other high-level Atari language that I am aware of can 
match this kind of speed performance. 

Listing 7. 

BYTE RTCL0K=28, ; addr of sys tiiwr 
5flVM5CL=88, ; Isb Of screen addr 
SAgM5CH=8g, ; HSb 

I, J, TIME ; declare variables 

C<kRD SCREEN 

PROC BENCH () 

GRAPHICS (24) 
RTCLOK=0 

SCBEEN=SflUM5CL+256»56UMSCH 

FOR 1=0 TO 31 
DO 
FOR J=0 TO 239 

DO 

P0KEfSCREEN+J,255) 

OD 
SCREEH==+24e 
OD 

TIME^RTCLOK 

GRAPHICS CO) 

PRIHTFC-XE 7.U JIFFIES", TIME J 

RETURN 



Pulling the vs^ings off 
a butterfly. 

Once I got a taste of Actionl's dizzying speed, I had 
to find out what was going on inside that demonic little 
cartridge. So I used the W (write object code) option of 
the Action! monitor to send a copy of the compiled 
Screen-Fill benchmark to a disk file. Then I read it 
back into Ralph Jones' Ultra Disassembler (pub- 
lished by Adventure International), massaged the labels 
and commented the code to make it correspond to the 
Action! source text, line by line. The result appears in 
Listing 8. 

Assembly programmers will appreciate the extraor- 
dinary efficiency of the Action! compiler. The code in 
Listing 8 is totally non-recursive. It uses no special 
stacks or indirect pointers to control the flow of execu- 
tion, just pure in-line machine code with an occasional 
]SR into a cartridge library routine. This is "native 
mode" compilation at its best: simple, clean, and very, 
very swift. The output of a typical C or Pascal compiler 
looks like spaghetti by comparison. 

Because compiled Action! programs refer to sub- 
routines that reside inside the Action! cartridge, you 



can't run a program without the cartridge in place. This 
may come as a disappointment to users who want to 
give copies of their latest Action! game to friends who 
don't have Action! OSS plans to remedy this situation 
by offering a Personal Run-Time Package to licensed 
Action! users for around $30. It's a utility that will let 
you turn any Action program into a self-standing 
entity that will run with no help at all from the Action! 
cartridge, thank you. A commercial run-time package 
will also be offered for a one-time licensing fee of 
approximately $300. Both may be available by the time 
you read this; contact OSS directly for more in- 
formation. 

Another $30 will get you OSS's Programmer's Aid 
Disk (PAD), a collection of demonstration programs 
and library routines that wouldn't fit into the already 
crowded Action! cartridge. The libraries include badly- 
needed support for player/missile graphics, memory 
management and floating point math, precisely the 
weaknesses I noted above. The demo programs are very 
instructive and help to clarify some of the obscure 
features of the language. You even get a full-blown game 
program, written in Action! by our very own Joel 
Gluck. 

The PAD squarely addresses many of the shortcom- 
ings of the Action! cartridge and documentation, and 
is an absolute must for all serious owners of the 
Action! system. In fact, this material ought to be 
included with every new system sold, even if it means 
bumping up the price a bit. 

You can bank on it. 

The 16K Action! "SuperCartridge" is a technically 
interesting device in and of itself It employs a hardware 
technique called bank-selecting to make itself "look" 
like an 8K cartridge. This gives you access to the 8K of 
RAM between $8000-$9FFF that is de-selected and 
thus rendered useless by a conventional 16K cartridge, 
such as AtariWriter. 

The bottom half of the SuperCartridge ($A000- 
$AFFF) is divided into three independently addressa- 
ble 4K banks of ROM, which are automatically 
switched in and out depending on what part of the 
system is in use. If your Atari has 48K or more 
memory, it's even possible to address the 4K bank of 
RAM that resides "under" this half of the cartridge. 
OSS's new DOS XL operating system takes advantage 
of this capacity in a most ingenious manner. Look for a 
report in a future issue. 

The bank-select cartridge is a nearly ideal home for 
Atari software. It gives the cartridge designer a full 16K 
to work with, enough room for plenty of bells and 
whistles. It gives the user an instant-loading, highly 
reliable environment with up to 40K of workspace. 
And because three of the memory banks occupy the 
same 4K address range, a bank-select cartridge is very 
difficult to pirate. Let's hope that more manufacturers 
start taking advantage of bank-selecting to enhance the 
value and security of their products. 
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Advice and admiration. 

I'm sorry to report that the Action! Reference 
Manual doesn't do the language justice. In a com- 
mendable attempt to satisfy beginners and experts 
alike, the Manual suffers from lack of confidence, 
uncertain organization and a shortage of good, hard 
technical data. Thank goodness for the numerous 
sample programs, which communicate a lot more 
about the system than the text surrounding them. 

Having once written the manual for a new (and 
mercifully obscure) programming language, I can 
appreciate the difficulties involved in deciding how 
much needs to be said, to whom, and in what order. 
Nevertheless, a new language can only be as good as 
its documentation. Until somebody sits down, rolls 
up his or her sleeves and writes an authoritative book 
about Action!, it will have a hard time attaining the 
wide acceptance it so obviously deserves. I conclude 
this diatribe by acknowledging that the latest edition 
of the Reference Manual (in the small yellow note- 
book) shows a marked improvement over the first 
release. 

The Action! cartridge itself has gone through a 
couple of changes since its first appearance in August 
1983. You can tell which version you have by using 
the "?" (display memory) command in the monitor 
to examine cartridge address $BOO0. If this byte 
equals $31 hex, you have the original Version 3. 1. A 
value of $33 indicates Version 3.3, in which a 
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number of minor 3. 1 bugs have been corrected. The 
final version is 3.6 ($36 at $B000), which should 
be ready soon after you read this. OSS has always 
been very good about maintaining their products, so 
you shouldn't have any trouble getting an upgrade if 
you need one. Consult OSS for prices and availabil- 
ity. 

I hope my kvetching about the documentation 
doesn't scare you away. If sensible, structured code 
and edge-of-the-art speed are what you crave in a 
high-level language. Action! is exactly what you 
need. OSS's hideous orange cartridge joins the ranks 
of valFORTH, Omnimon!, ABC and MAC/65 
as one of the most valuable development tools ever 
published for the Atari. Congratulations and thanks 
to Clint Parker and OSS for bringing us such an 
advanced product. You can expect to see plenty of 
support for this exciting new language in future 
issues of ANALOG. D 



Listing 8. 

DISASSEHBLY OF COMPILED 
ACTION! SCREEN-FILL 
BENCmARK (LISTING 7) 



DEFINE ADDRESS CONSTfWTS 



8116 
6128 
8138 
8148 
8156 
8168 
8178 
6188 
6196 
6288 
8218 
8228 
6238 
8246 
8258 
8268 
8278 
8288 
8298 
8386 
8318 
8328 
8338 
8348 
6358 
8366 
8378 
6386 
8396 
6486 
8416 
8426 
6436 
8448 
8458 
6466 
8478 
8486 
6498 
6586 
6518 
6526 
6536 
8548 
6558 
6566 
8576 
6588 



^CLOK = 28 
SAVMSCL = 88 
SA^^SCH = 89 

GLOBAL UARIABLE STORAGE 

*= ORIGIN 
I *= *+l ; reserve 1 byte -for 
J »= «+l ; each BYTE war! able, 
TIME »= «+l 
SCREEN *= «+2 ; 2 bytes -for CARDs 

PROC BENCHO 

JMP START 

If our procedure used local variables, 
they would have been stored here. 
That's why the above JMP is included, 

GRAPHICS(24) 



^ART 

LDA «24 
JSR GRAPHICS 

RTCLOK= 



LDY #8 
STY RTCLOK 



SCREEN=SAUMSCL+256*SWMSCH 



LDA 18 
STA TEMPI +1 
LDA SAUMSCH ; 
STA TEMPI 
LDA I >256 ; 
TAX 

LDA II <256 ; 
JSR MULTIPLY 
STA TEMP4 



move SAWSCH into 

TEMPI 

ntsb of multiplier 

Isb 
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8598 



TXA 
STA 



8616 
U2i 
U3t 
6648 
8658 
6668 
8678 
6688 

un 

8786 
8718 
8728 
8738 
8748 ILOOP 
8758 LDA 
8768 CMP 
8778 BCS 
8788 JMP 
8798 



CLC 
LDA 
ADC 
STA 
LDA 
ADC 
STA 



LDY 
STY 



TEHP4+1 



SAWSCL 

TEMP4 

SCREEN 

18 

TEMP4+1 

SCREB<+1 



save (256#SAWSCH) 
into TEMP4 



add SflWISCL to 
(256»8AWSCH) and 
store In SCREEN 



FOR 1=6 TO 31 DO 



18 
I 

#31 
I 

JINIT 
GETIME 



init I-loop 



reached limit yet? 
no - do another J-lc 
else get titaing 



8818 
8828 JiNIT 
8838 LDY 
8848 STY 
8858 JLOOP 
6868 LDA 
8878 CMP 
8888 eCS 
8898 JMP 



FOR J=8 TO 239 DO 



1239 
J 

DOPOKE 
ADD248 



init J-Ioop 



reached limit yet? 
no - poke another byte 
else update SCREEN 



8918 
8928 
6938 



P0KE<SCREEN+J,255) 



8958 
8968 
8978 
6988 
8998 
1888 
1818 
1828 
1838 
1848 
1856 
1868 
1878 
1686 



60POKE 
CLC 

LDA SCREEN 
ADC J 
STA TEMP2 
LDA SCREEN+1 
ADC «e 
STA TEMP2+1 

' LDY 1255 
LDX TEHP2+1 
LDA TEMP2 
JSR POKE 



add SCREEN to 

J, and 

save in TEMP2 



poke (SCREEN+J) with 
a 255 



OD (for J loop) 



1186 

1118 

1128 

1138 

1148 

1158 

1168 

1178 

1188 

1198 

1288 

1218 

1226 

1238 

1248 

1256 

1268 

1276 

1288 

1296 

1368 

1318 

1326 

1338 

1346 

1358 

1368 

1378 

1386 

1398 

1486 

1416 

1426 

1436 

1446 

1458 

1468 

1478 

1488 

1498 

1588 

1518 

1526 

1538 

1548 

1558 

1568 

1578 



JMP JLOOP 

SCREEN=+24B 

4dD248 

CLC 



; add SCREEN and 



LDA SCREEN 

ADC «248 ; 248: store result 

STA SCREEN ; in SCREEN 

LDA SCREEN+1 

ADC 18 

STA SCREEN+1 

OD (for I loop) 

INC I 
JMP ILOOP 



TIHE=RTCLOK 



(jETIME 

LDA RTCLOK 
STA TIME 



GRAPHICS(8) 

LDA t6 

JSR GRAPHICS 

PRINTFCXE -/M JIFFIES', TIME) 

JMP OVER ; skip over in-line string 
STRING ^ 

.BYTE 13 ; length of string 

.BYTE "/.£ -/.U JIFFIES- 
OVER 

LDA «8 ; iBsb of TIME 

STA TEHP3 ; into TEMP3 

LDY TIME : Isb into Y 

LDX I >STRIhffi ; msb of string addr 

LDA I <SrRING I Isb 

JSR PRINTF 



RETURN 
RTS ; from procedure 
RTS ; back to Action! monitor 



INC J 



Attention Programmers! 

ANALOG Computing is interested in programs, articles, and software review submissions deal- 
ing with the Atari home computers. If you feel that you can write as well as you can program, then 
submit those articles and reviews that have been floating around in your head, awaiting publica- 
tion. This is your opportunity to share your knowledge with the growing family of Atari computer 
owners. ANALOG pays between $30.00-$360.00 for all articles. All submissions for publication 
must be typed, upper and lower case with double spacing. Program listings should be provided in 
printed form, and on cassette or disk. By submitting articles to ANALOG Computing, authors ac- 
knowledge that such materials, upon acceptance for publication, become the exclusive property 
of ANALOG. If not accepted for publication, the articles and/or programs will remain the property 
of the author. If submissions are to be returned, please supply a self-addressed, stamped envelope. 
All submissions of any kind must be accompanied by the author's full address and telephone 
number. Send programs to: Editor, ANALOG Computing, P.O. Box 23, Worcester, MA 01603. 
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PRISONER II 
by David Mullich 
EDU-WARE SERVICES, Inc. 
P.O. Box 22222 
Agoura, California 91301 
48K Two-Disk Set $39.95 



by C.J. Thorns 



A top-level British secret agent wants "out." 
Slamming his resignation onto the Company desk, 
he streaks back to his flat in a homebuilt Lotus 7, 
intending to pack his suitcase and escape to a quiet 
vacation in the sun. Then he hears the hiss of gas and, 
fighting against it, slips unconscious to the floor. 

Waking, the agent looks around at his familiar 
bedroom. Was it a dream? He opens the window 
curtains and stares with astonishment at a baroque 
landscape of candy-colored Italian cottages. This 
isn't London! 

So began The Prisoner, the unforgettable 1968 tele- 
vision series starring Patrick McGoohan that became 
a legend among fantasy /science fiction addicts. In- 
habitants of the mysterious "Village" in which 
McGoohan's character found himself were identified 
only by number. Some were prisoners, others not; 
there was no way of knowing if an inmate was a 
former agent or a "custodian" who, using various 
psychological tricks, would persuade you into reveal- 
ing "information" (the reason for the resignation?). 



BEl.OU IS VOiiF; RESIGHftTIOM CODE. 

IT IS fi com mm emcrvptiom of 

VOUR REASOMSr FOR LEflUIMG THE 
COWPflWV. 

UftTlE IT rieHIM.. COttMTT IT TO 

WEHORV. BUT nmmn no 

CIRCimSTftWCKS RKUEfiL IT lu 
fiBVBODV IF VCstI UflLIJK VOIJF: 
FREEDOM . 



5iS9 



The Prisoner. 

A few years ago, I made a pilgrimage to Port- 
meirion, the village in North Wales where the series 
had actually been filmed. As 1 walked the little 
streets, I could almost hear the ghostly Muzak play- 
ing, and 1 felt certain that, if I turned the next corner 
quickly enough, I would see a golf cart ahead of me. 
The only souvenir I have of that first visit is a paper- 
back copy of The Prisoner by Thomas Disch. But I 




recently returned to the Village — through the key- 
board of my Atari. 

Edu-Ware Service's new Prisoner II is an ani- 
mated graphics adventure that recreates the Village 
(although they have rebuilt it as an "Island") and 
populates it with electronic frustrations no less 
sophisticated than the original. The packaging des- 
cribes the product as a "Science Fiction Nightmare," 
but that description doesn't nearly do it justice. 

Prisoner comes with a confidential dossier which 
outlines the problems you will face. After loading 
one of the two disks in the set, I was given a three- 
digit code which, I was told, was an encrypted reason 
for my resignation. I then found myself at an Airport, 
where I attempted to take a flight to Tokyo, or Hono- 
lulu, or anywhere — but I found myself on a one-way 
trip to the Island. 

After navigating an invisible maze, I entered the 
Village with an invitation to visit "The Caretaker" at 
my earliest convenience. His house wasn't hard to 
locate, but the door was locked. Other buildings with 
obscure purposes were easier to enter. An occasional 
step in the wrong direction sent me back to the maze 
— with all the passages rearranged! Climbing the 
fence that surrounds the Island alerted an electronic 
watchdog called Pax, which also sent me back to the 
maze. 

I was able to contact an underground organization 
called The Brotherhood; they assured me that, if I 
satisfied them of my integrity, they would help me to 
escape. But can I trust them? If I reveal my resignation 
code I will lose, but at times the pressure is so great 
that it would almost be a pleasure to submit. 

The screen of Prisoner II consists of one line for 
text entry, another for the computer's response and a 
high-resolution display of your current location. 
Sounds, colors, animation and an (at times) inten- 
tionally unresponsive keyboard combine to raise 
your frustration level as you move around the Island. 
The interiors of buildings often change when you 
return to them; the standard adventure trick of "save 
the game and see what happens" just doesn't work 
here! You can record your current score and posses- 
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sions using the STASIS command — which may or 
may not be available, depending on your location. 
When you reboot, you will be dumped back into the 
invisible maze. If you want a fresh start, perhaps to let 
a friend play, you must (unfortunately) give up by 
revealing your resignation code. This results in a 
humorous response and resets your environment. 

The Prisoner II disks are copy-protected, so you 
cannot back them up. This is always a nuisance, 
especially in this case, where you can't write-protect 
the disk if you want to save your status. The program 
also requires you to swap disks from time to time; 
there is no support for multiple-drive play. I wonder 
how many times I can swap my master disks before 
they become unreadable? The only fault I could find 
in the documentation was that the program should 
be booted from Disk #1, not Disk #2 as stated. 

Prisoner II is a superb package (I dare not call it a 
"game") that should provide weeks of entertain- 
ment. It goes far beyond the traditional "collect the 
right combination of treasures" adventure, and in- 
cludes some diabolical arcade- like sequences to frus- 
trate you even more. I'm told that it is possible to 
escape from the Island. If you succeed, you will never 
forget it. 

Be seeing you. D 



A 



OuinTech 

graphics 



A 



dynamic computer art is here! 
express your artistic talent immediately with 

VISUAL SYNTHESIZER 34.95 DISK 

•menu driven • multi-window graphics • interactive function keys 

• save visual productions on disk 

• thousands of geometric variations possible 

• machine language algorithm for enhanced speed 

ALSO AVAILABLE: 

VISUAL MOODS I, II, or III 19.95 EACH DISK 

five complete VISUAL SYNTHESIZER productions 
with interactive function keys on each disk. 

utilities 



BASIC HACKER'S PACK 19.95 DISK 

a disk-full of Atari® Basic utilities 

for your programming ease and enjoyment 

• disk directory 'disassembler -binary load 

• find or list variables • immediate DOS commands and 

• block line deletion hex/decimal conversion 



S. E. SORT 



24.95 DISK 



■ sort strings and/or disk files • 140 10-byte records per second 

• Basic USR statement call • input/output user exits 

• enhanced tree algorithm • machine language 

• up to 10 keys — each key ascending or descending • error handling 

• sort statistics • full documentation • sample programs 
LICENSING AVAILABLE 



OUTSIDE ILLINOIS ir^ hhi IN ILLINOIS 

800-621-0660 ^^ ^"-^ 800-572-0440 

DEALER INQUIRIES INVITED CALL FOR OUR COMPLETE CATALOG 

Illinois residents add 6% sales tax. Allow 3 weeks for personal checks. 

$3.00 shipping and handling. 

QuinTech Systems, Inc. 

1271 Dundee Rd., Suite #44B, Buffalo Grove, IL 60090 

®Atari is a registered trademark of Atari, Inc. 



Superior Quality Peripherals from convoiogic 





The BYTEWRITER 

programs, reads, verifies EPROMS: 2516, 
2716, 2532, 2732, 2564, 2764, 68764, 
27128. No personality modules. Will read 
operating system ROMS. 

Operational software will support, in- 
spect and cfiange, constant store, cas- 
sette and disk I/O. 
Source Code available for $35.00 
BYTEREADER option Interfaces car- 
tridges to BYTEWRITER. <t-|QQ 

BYTEREADER $30.00 



The EXAMINER 

converts any 8K or 16K cartridge into a 
DOS or cassette file. Examine contents, 
customize software, and test with optional 
WAM cartridge. Powerful cassette/disk 10 
capabilities. Source code available for 
$25.00 «h#»** 

$89 

WAM Cartridge $59.00 »kww 



THE NEW 1850 

Expansion unit contains one 
parallel (Centronics compatible) 
printer port and one serial 
(RS-232) interface. 

Resides on SIO bus with disk 
and/or cassette. 

Selectable serial baud rates 

(19200, 9600, 4800, 2400, 1200, 

600, 300), and maskable hand- 
shake signals. 

No OS modifications or ROIVI 
swap necessary. 



$139 



Send for FREE Catalog - Dealer Inquiries Encouraged 

Each accessory is fully assembled with a 90 Day Limited Warranty. When ordering, specify 
Disk or Cassette. Mail Cashier's Check or Money Order (Personal Checks will add 3 weeks to 
the 4 to 6 week delivery), plus shipping and handling $4.00 domestic, $6.00 foreign, C.O.D. 
orders $3.00 extra, add 4% to Visa and MasterCard orders, $30.00 minimum order to: 



Fla. Residents Add 5% Tax 



vriMIP*ni n^l^..,_ orders only t-800-227-3800 

LUi\JT/ULUGiL,if\ir. Ext.7024 

421 Bay Tree Lane • Longwood, FL 32779 • (305) 869-6630 



OTHER PRODUCTS 

Cartridge boards dual socketed for 
2764s, to make 8K or 16K 

cartridges $ 7.50 

Shells for cartridges $ 5.00 

2764 EPROM $ 7.50 

Okidata Micro 92 Printer $470.00 

Okidata Micro 93 Printer $770.00 
Okidata Micro 83A 

Printer $615.00 
Printers — Plus Freight 




Tired of high prices, poor service and hidden charges 
you get from other mail order companies ... 

Try RISING SUN SOFTWARE! 



ENTERTAINMENT 

ARTWORX 

Strip Poker (D) $25.00 

S.P. Data Disks 20.00 

ATARI (ROM only) 

Centipede $32.00 

Defender 32.00 

Dig Dug 32.00 

Donkey Kong 35.00 

Eastern Front 35.00 

Galaxian 32.00 

Joust 35.00 

Missle Command 27.00 

Ms. PacMan 35.00 

Pac-Man 32.00 

Pengo 32.00 

Qix 32.00 

Robotron 32.00 

Space Invaders 27.00 

Star Raiders 32.00 

BIG FIVE 

Miner 2049er (R) .... $35.00 

BRODERBUND 

A.E. (D) $25.00 

Arcade Machine (D)... 42.00 

Ctioplifter (D) 25.00 

Ctiopiitter (R) 32.00 

Oper. Whirlwind (D) . . . 25.00 

Sea Fox (D) 21.00 

Sea Fox (R) 28.00 

Sky Blazer (D) 28.00 

BUDGECO 

Raster Blaster (D).... $21.00 

DATAMOST 

Airslrike (D/C) $28.00 

Bilestoad (D) 28.00 

Mating Zone (D) 25.00 

DATAMOST 

Micropainter (D) $25.00 

Pooyan (D/C) 21,00 

Zaxxon (D/C) 28.00 

DONT ASK 

Poker Sam (D/C) .... $20.00 
S.A.M. (D) 42.00 

EDU-WARE 

Prisoner 2 (D) $28.00 

Rendezvous (D) 28.00 



ELECTRONIC ARTS 

Archon(D) $28.00 

Hard Hat Mack (D).... 25.00 

M.U.L.E. (D) 28.00 

Murder on the 

Zunderneuf (D) 28.00 

Pinball Construction 

Set (D) 28.00 

Worms? (D) 25.00 

EPYX 

Jumpman (D) $28.00 

Jumpman Jr. (D) 28.00 

INFOCOM (disk only) 

Deadline $35.00 

Enchanter 35.00 

Planet Fall 35.00 

Starcross 28.00 

Suspended 35.00 

The Witness 35.00 

Zork I 28.00 

Zork II 28.00 

Zork III 28.00 

INTELLIGENT STATEMENTS 

Pro. Blackjack (D) ... $49.00 

LIGHTNING SOFTWARE 

Master Type (D) $28.00 

MUSE 

Castle Wolfenstein ... $21.00 

ODESTA 

Chess (D) $49.00 

Checkers (D) 35.00 

Odin (D) 35.00 

PARKER BROTHERS 

Astrochase (R) $35.00 

Chess (R) 42.00 

Frogger (R) 34.00 

Popeye (R) 35.00 

QBert (R) 35.00 

Risk (R) 42.00 

Super Cobra (R) 35.00 

Tulankam (R) 35.00 



ROKLAN 

Deluxe Invaders (R) ..$28.00 

Gorf (D) 28.00 

Gorf (R) 32.00 

Wizard of Wor (R) 32.00 

Wizard of Wor (D) 28.00 

SIERRA ONLINE 

Crossfire (R) $25.00 

Crossfire (D/C) 21.00 

Frogger (D/C) 25.00 

Mission Asteroid (D) . . 20.00 
Sammy Lightfoot (R) . . 27.00 

Ultima II (D) 42.00 

Ulysses (D) 28.00 

Wiz & Princess (D) .... 25.00 



HARDWARE 




DEALS 




MODEMS 




Apple Cat II . 


$299.00 


Micromodem 


1 265.00 


Micromodem w/term- | 


inal prog. . . 


. 295.00 


212 Apple Cat 


. 580.00 


MONITORS 




Amdek 




Color 1 


$299.00 


Color II RGB . 


. 599.00 


Color III RGB 


. 399.00 


RGB Card . . . 


. 149,00 


USI 




Pi 1 9" Green 


$119.00 


Pi2 12" Green 


. 149.00 


Pi 3 12" Ambe 


. 159.00 


Pi4 9" Amber 


. 129.00 


Color 1400 . . 


. 299.00 


PRINTERS 




C. Itoh 




GX-lOO 


$229,00 


Prowriter .... 


. 399.00 


Okidata 




Microline 80 . 


. 349.00 


Microline 82A 


.449.00 


Microline 92. 


. 549.00 



STRATEGIC SIMULATIONS 

Battle for 

Normandie (D/C) .. $28.00 
Battle of 

Shiloh (D/C) 28.00 

Combat Leader (D) . . . . 28.00 
Cosmic Balance (D/C) 28,00 
Cosmic Balance II 

(D/C) 28,00 

Cytron Masters (D) . . . . 28,00 
Galactic Gladiator (D) , 28,00 
Knights of the 

Desert (D/CO 28,00 

Shattered Alliance (D) . 28,00 
Tigers in the Snow 

(D/C) 28,00 

SYNAPSE 

Blue Max (D/C) $25,00 

Dimension X (D/C),,.. 25.00 
Ft. Apocalypse (D/C) . . 25.00 
Necromancer (D/C).. . 25.00 
Pharoah's Curse (D/C) 25.00 
Shadow World (0/C) .. 25,00 

Shamus(D/C) 25,00 

Shamus (R) 32,00 

Shamus II (D/C) 25.00 

Survivor (D/C) 25.00 

Zepplin (D/C) 25.00 

THORN EMI 

Hockey (R) $28.00 

Jumbo Jet Pilot (R).... 35.00 

River Rescue (R) 28.00 

Soccer (R) 35.00 

Submarine Commander 
(R) 35.00 



RISING SUN SOFTWARE 

4200 PARK BLVD. 

OAKLAND, CALIFORNIA 94602 

(415) 482-3391 

Ordering Information: We'll accept any form of payment— cash, personal check, money order, VISA/ 
MasterCard, or CO. D. Send cash at your own risk. Add $2.00 for UPS shipping; $3. OOfor Blue Label Air. 
California residents add applicable sales tax. ALL orders shipped same day received. If we are out of stock 
on a particularitem we will include a special bonus with your order when shipped. 



maslei chatgt 



CALL TOLL FREE 24 HOURS (ORDERS ONLY) 

(800) 227-1617, ext. 114 (Outside California) 
(800) 772-3545, ext. 114 (Inside California) 




UTILITIES & 
LANGUAGES 

ADVENTURE 
INTERNATIONAL 

Diskey (D) $35.00 

ATARI 

Assembler Editor (R) . $45.00 

Atari Basic (R) 42.00 

Macro Assembler (R) . . 68.00 
Microsoft Basic II (R).. 68.00 
PILOT (R) 60.00 

DATASOFT 

BASIC Compiler (D).. $63.00 
Lisp Interpreter (D) ... 70.00 
Edit 6502 (R) 125.00 

OPTIMIZED SYSTEMS 

Basic A+ (D) $56.00 

Bug 65 (D) 25.00 

Mac/65 (D) 56.00 

EDUCATION 

ATARI 

Conversational Languages 

French (C) $42.00 

German (C) 42.00 

Italian (C) 42.00 

Spanish (C) 42.00 

Educator Kit 117.00 

Inv. to 

Programming 1 18.00 

Inv. to 

Programming 2 23.00 

Inv. to 

Programming 3 23,00 

Juggles House (D) ,... 23,00 
Juggles House (C) .... 18.00 
Juggles Rainbow (D) . . 23.00 
Juggles Rainbow (C) .. 23.00 
My First Alphabet (D) . 27.00 

Programmer Kit 53.00 

Tough Typing (cass) . , 18,00 

EDU-WARE 

Compu-Read (D) $21,00 

Compu-Read (C) 15.00 

SPINNAKER 

Face Maker (D) $28,00 

Hey Diddle Diddle (D) . 21,00 

Kmdercomp (D) 21,00 

Most Amazing Thing 

(D) 28,00 

Rhymes & Riddles (D). 21,00 
Snooper Troops 1 (D) . 32,00 
Snooper Troops 2 (D) . 32,00 
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BASIC 

TRAINING 



by Tom Hudson 




In last issue's BASIC Training, we started exa- 
mining the use of the IF/THEN statement in Atari 
BASIC. This issue, we continue our in-depth study 
with more examples and a useful PRINT USING 
subroutine. 

IF/THEN statements without 
relational operators? 

Usually, IF/THEN statements are used with 
relational operators. No, that doesn't mean they can 
be found working at the phone company, but that 
they use the symbols = (equal to,) < (less than), 
> (greater than), <= (less than or equal to), >= 
(greater than or equal to) OR < > (not equal to). 

In some cases, these operators are not necessary, 
and you will see IF/THEN statements that look like: 



IF NUMBER THEN 4800 

IF NOT NUMBER THEN 4608 

IF NUMBER OR NUHBER2 THEN 4600 

IF NUMBER AND NUMBER2 THEN 4000 



These are perfectly valid comparisons. They aren't 
seen very often, but they are easy ways to conserve 
several bytes of memory as well as several 
keystrokes. 

How does this type of comparison work? 
Remember that the computer deals with two 
conditions in comparisons: TRUE and FALSE. If 
there is no relational operator present, the computer 



will examine the expression and determine if it is zero 
or non-zero. If the expression is zero, the FALSE 
condition will be set. If the expression is not zero the 
TRUE condition will be set. 

With this information in hand, such comparisons 
as: 

IF X <> THEN 1000 

can be replaced with: 

IF X THEN 1000 

If the value of X is non-zero, the TRUE condition 
will be set and the comparison will operate the same. 
In addition, the new line is eight bytes shorter than 
the original! Eight bytes may not seem like much, but 
when repeated dozens of times in a program the 
memory savings can add up to an impressive 
amount. 

What if we want to branch when the expression is 
zero? In this case we must use the NOT operator. 
This simply flips the result of the comparison. If the 
result was TRUE, the NOT operator will change it to 
FALSE. If the result was FALSE, the NOT operator 
will change it to TRUE. Using this information, it is 
easy to check for zero values. We simply use the same 
comparison as for non-zero and add the NOT 
operator to flip the result! A simple zero check is 
shown below. 

IF NOT X THEN 1000 

Let's assume that X has a value of 5, which is, of 
course, non-zero and should result in a FALSE 
condition when X is compared to zero. First the 
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program will evaluate X and find that it is non-zero, 
resulting in a TRUE condition. Next the computer 
will use the NOT operator to flip the condition, 
changing TRUE to FALSE. Since this final condition 
is FALSE, the branch will not be taken. If X had a 
value of zero, the evaluation of X would result in a 
FALSE condition, the NOT operator would flip this 
to TRUE, and the branch to line 1000 would be 
taken. 

What other comparisons are possible? Figure 1 
shows some common comparisons and their non- 
relational equivalents. 

BEFORE: IF XOO AND V=e THEM 1680 

AFTER: IF X AND MOT V THEM 1880 

BEFORE: IF XOO OR V<>8 THEM 1888 

AFTER: IF X OH V THEM 1888 

BEFORE: IF X=8 OR Y=8 THEM 1888 

AFTER: IF MOT X OR MOT V THEM 1888 



Figure 1. 

These are just a few of the comparisons that are 
possible without using the relational operators. Try 
some of your own and check the memory savings by 
using the FRE(O) function. 

What about strings? 

So far we've only talked about numeric variables 
in comparisons. The IF/THEN statement can also 
compare alphanumeric information in strings. If you 
are not sure what strings are or how they work, you 
may want to read "Strings in ATARI BASIC" in 
ANALOG #11. This in-depth article describes 
how strings work and demonstrates the comparison 
of strings with BASIC. 

String comparisons are basically the same as 
numeric comparisons. The only difference is the 
structure of the expression within the IF/THEN 
statement. Let's look at how string comparisons 
work. 

In numeric comparisons, the relational operators 
=, <, >, etc. determine the relationship between the 
two values being compared. 

In strings, the ATASCII code values of the 
characters in the strings are used to perform the 
comparison. Comparison proceeds from the 
leftmost character to the rightmost. As each 
character is encountered, it is converted into its 
ATASCII value and compared to the corresponding 
character in the other string. If the ATASCII values 
of the characters compared are the same, the two 
strings are considered equal. If the ATASCII value of 
one character is higher than the other, that string is 
considered greater. Conversely, if the character's 
ATASCII value is lower than the other, the string is 
considered less than the other. 

Luckily, the ATASCII values are configured so 
that the closer the letter is to the beginning of the 
alphabet, the lower its ATASCII code number is. 



This makes it very easy to alphabetize lists of names. 
For example, the name "FRED" would come before 
"RALPH" because the ATASCII value for F (70) is 
lower than R (82). 

Enter the listing from Figure 2 into your 
computer, type in the example strings shown below 
the listing and observe the results. 



1"; :IMPUT A5 
2" J : INPUT BS 



10 DIH A5C5},BSC5) 

20 PRINT "ENTER STRING 

38 PRINT "ENTER STRING 

40 IF AS=BS THEN PRINT A$j"r";BS 

58 IF A$>BS THEN PRINT A5;">";B$ 

60 IF AS<BS THEN PRINT AS;"<";B5 

70 GOTO 20 



Figure 2. 



TRY 

1 
2 
3 
4 

5 



STRING 1 

FRED 

RALPH 

123 

12345 
HELLO 



STRING 2 

RALPH 
FRED 

1234 
12345 
hello 



Comparison number 1 will result in FRED < 
RALPH because, as noted earlier, the letter F is lower 
than the letter R in the ATASCII code sequence. 

Comparison number 2 will result in RALPH > 
FRED. This is the same result as the first 
comparison, but we have just switched the order of 
the comparison. 

Comparison number 3 will result in 123 < 1234. 
The first three characters of the strings are equal, but 
when the computer tries to compare the fourth 
character of each, it finds that the string "123" only 
has three characters, while the string "1234" has 
four. This causes the computer to decide that 
"1234" is greater than "123." 

Comparison number 4 will result in 12345 = 
12345, a fairly obvious result. 

Comparison number 5 is very interesting. It will 
result in HELLO < hello. The reason for this be- 
comes clear when one studies the ATASCII code 
chart in the ATARI BASIC reference manual. The 
upper case letters' ATASCII codes range from 65 to 
90, while the lower case range from 97 to 122. As a 
result of this structure, lower case words will always 
be greater than their upper case counterparts. 

Try your own comparisons with the above 
program and observe the results. You'll soon 
understand the logic of string comparisons. 

USING comparisons. 

Now that we've covered the decision-making 
features of ATARI BASIC, let's look at a program 
that applies most of these principles. 

The program listing in Figure 3 will provide 
ATARI BASIC users with a handy PRINT USING 
function. This function allows the printing of 



ATARI SOFTWARE FOR THE WHOLE FAMILY 



Here are four software 
packages designed for the 
different people in your 
family. 



A BASIC 
COMPIIER 
FOR THE 
PRO- 
GRAMMER 

ABC (A BASIC 
Compiler) auto- 
matically trans- 
lates Atari BASIC 
programs into 
high-performance 
integer P-code that 
runs up to 12 times 
faster! 

Perfect for devel- 
oping system soft- 
ware and commer- 
cial games, ABC accepts 
most BASIC programs (unless 
floating point dependent) with little 
or no modification. Compiled P-code 
is a self-standing DOS object module 
that is unLISTable and runs without 
the BASIC cartridge. 

ABC allows expressions in DIM, 
GOTO, GOSUB, and RESTORE state- 
ments, doesn't require you to re-order 
lines, and fully supports string and 
sub-string operations. 

Give your BASIC programs the 
look and "feel" of professional prod- 
ucts with ABC. 40K Disk $69.95. 
Manual alone $9.95 (credited toward 
compiler purchase). 

MAKEBOOT lets you create self- 
booting disk or cassette versions of 
your ABC compiled software. Re- 
duces overall program load time and 
saves memory and disk space by 
eliminating DOS. 40K Disk$M.95. 




AN EDUCATIONAL TOY 
FOR PRE-SCHOOLERS 

Monarch is proud to present SofToy, 
an educational program smart 
enough to act simple. 

Bells ring, balls bounce, owls hoot 
as SofToy and its colorful interactive 
display gently introduce children (two 
years and older) to spatial relations, 
letters, numbers, even elementary 
programming! SofToy lets kids be- 
come familiar with computers, without 
arbitrary demands, competition, or 
intimidation. SofToy grows with chil- 
dren, too. At more difficult levels, the 
match game is a real challenge for 
the whole family 24K Disk $29.95. 



TOOLS FOR THE 
SERIOUS USER 

Power foo/s / com bi nes 
four sophisticated text 
processing tools on one 
easy-to-use utility disk. 

DIFF shows you 
differences between 
two ATASCI I text files: 
for example, changes 
you made in a pro- 
gram or document 
from one version to the 
next. 

Manually searching 
for a particular text file 
can take hours. But 
now, with SEARCH, 
you specify a search 
string and a list of files. 
SEARCH examines the 
files and points out which 
ones have that string. You'll 
never lose your Fudge 
Brownie recipe again! 
CHANGE is a powerful 
search and replace utility that 
operates on multiple files with 
one command. For example, you 
could change character names 
throughout your novel with a single 
command, even if each chapter is a 
separate file. 

The special pattern-matching and 
multiple disk capabilities of SEARCH 
and CHANGE are an added plus. 

TRANSLIT lets you swap one char- 
acter set for another (for example, 
upper case for lower case) throughout 
a file with one command. 

Power Tools I is ideal for professional 
business and software development 
text applications. 40K Disk $34.95. 

Lookfor these fine products at your nearest ATARI 
__dealer, or order direct. Include $2.00 tor sliipping and 
"" handlingin U.S. /Canada. Checks or money or- 

ders accepted. MasterCardA/isa add 3%. 
COD higher MA residents add 5% tax. 
Dealer and distributor inquiries 
invited. ATARI is a trademark 
of Atari, Inc. ABC, Makeboot, 
PowerTools, and SofToy are 
trademarks of Monarch Data Systems, Inc. 




MONARCH DATA SYSTEMS 

MONARCH DATA SYSTEMS, INC., RQ Box 207 Cochituate, MA 01778 (617) 877-3457 Copyright © 1983 by Monarch Data Systems, Inc. 
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numbers in specific forms, such as dollars and cents, 
dates and fixed decimal places. 

Type this program into your computer and check 
it for typing accuracy with C:CHECK or D:CHECK 
II. Lines 10000-10250 of this listing make up the 
PRINT USING subroutine, and can be added to any 
program. Before running the prograin, let's look at 
how the PRINT USING function works. 

The PRINT USING function allows the 
programmer to print numbers in specific formats. 
Instead of numbers appearing like 7654293.5, the 
PRINT USING function prints the numbers in an 
easily-readable form, such as 7,654,293.50. Dates 
can be shown in the standard format 12/14/83 if 
desired. 

In order to use the PRINT USING function, two 
things are needed: An EDITING PATTERN and a 
VALUE to be edited. The editing pattern determines 
the printed form of the value, and can be set up in 
almost any form. There are several rules that must be 
followed when setting up an editing pattern. 

1. The editing symbol "#" is used wherever a 
number is to appear. To show a five-digit number, 
the pattern "#####" would be used. 

2. The editing symbol "."is used to show were the 
decimal point is to appear. Only one decimal point 
should appear in the editing pattern. To show a 
three-digit number with two decimal positions, the 
pattern "###.##" would be used. 

3. The editing symbol "," is used to show where 
commas are to be inserted into the number. Use as 
many commas as necessary. To show a dollar amount 
in the millions of dollars, the editing pattern 
"#,###,###.##" would be used. 

4. Other editing symbols, such as "/", can be 
placed in the editing pattern. They will be inserted 
into the edited result. An example of this is an 
ordinary date edit pattern, for which "##/##/##" 
would be used. 

5. The editing pattern should be large enough to 
hold any values that are edited with it. For example, 
if the largest number in a dollar amount edit would 
be $1000, the pattern "#,###.##" is the smallest 
that should be used. If the number exceeds the 
pattern length, the subroutine will return all "*" for 
the edited number. 

6. The subroutine does not round when decimals 
are truncated. For example, if a pattern of "###.#" is 
used and the number is 23.0577, the edited result 
will be "23.0". 

The BASIC program in Figure 3 will allow you to 
type ##,###.## and presss RETURN. When asked 
for a value to edit, type 1895.546 and press RE- 
TURN. The computer should display "EDITED 
VALUE = 1,895.54" and ask for another pattern. 
Try some of your own to get acquainted with the 
PRINT USING function. 



How it works. 

The PRINT USING subroutine is easy to use. 
Simply set up the string variables P$, 0$ and F$ as in 
line 80 of the demonstration program, and place 
lines 10000-10250 in your program. When you 
want to edit a number, just place an editing pattern in 
P$, put the number to be edited in 0$ (this is easily 
done with the statement "0$=STR$(NUMBER)"), 
and GOSUB 10000. The subroutine will edit the 
number and return the result to you in F$. You can 
then print F$ to the screen or printer as you wish. 

Line 80 — Sets up the editing work string 
variables. 

Line 90 — Accepts editing pattern from 
keyboard and places it in P$. 

Line 100 — Accepts value to be edited from 
keyboard and places it in 0$. 

Line 110 — GOSUBS 10000 to edit the 
value. 

Line 120 — Prints the edited value to the 
screen. 

Line 130 — Loops back to line 90 to get 
another pattern and number. 

Line 10030 — Saves the lengths of the 
pattern (LP) and the length of the number 
(LO), then moves spaces to the final result 
string (F$). 

Line 10040 — This line locates the pattern 
decimal (if any) and saves its position in PD. 
Line 10050 — If there is no decimal point in 
the pattern, this line sets the pattern decimal 
location (PD) to zero. 

Line 10060 — This line locates the decimal 
point in the number to be edited (if any) and 
saves the posidon in OD. 

Line 10070 — If there is no decimal point in 
the number, this line sets the object decimal 
position (OD) to zero. 

Line 10080 — If there is a decimal in the 
pattern, this line sets up decimal point work 
pointers (PWX and PDX). 

Line 10090 — If there is no decimal point in 
the pattern, this line sets the decimal point work 
pointers accordingly. 

Line 10100 — If the number to be edited has 
a decimal point, this line sets up decimal point 
work pointers (OWX and ODX). 

Line 10110 — If there is no decimal point in 
the number to be edited, this line sets the 
decimal point work pointers accordingly. 

Line 10120 — If there is no decimal point in 
the pattern, the program continues editing at 
line 10220. 

Line 10130 — This line places the decimal 
point in the final result string. 

Line 10140 — If there are no decimal places 
in the object string, this line passes control to 
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line 10190 in order to fill the right side of the 
decimal point with zeroes. 

Line 10150 — If the copy of the object 
string's decimal digits is complete, this line 
passes control to line 10190 to zero fill the rest. 

Line 10160 — If there are no more decimal 
places in the pattern, this line passes control to 
line 10220 in order to handle the left side of the 
decimal point. 

Line 10170 — If this position of the pattern 
is not a "#", this line moves what is in the 
pattern to the final result string, increments the 
pattern pointer, and goes to line 10160 to 
continue copying. 

Line 10180 — This line moves the number 
in the object string to the final result string, 
increments the pattern pointer and object 
pointer, and goes to line 10150 to continue 
copying. 

Line 10190 — This line begins the zero-fill 
section. If the end of the pattern has been 
reached, no more filling is needed and control 
goes to line 10220 to do the left side of the 
decimal point. 

Line 10200 — If the current position in the 
pattern is not a "#," this line moves what is in 
the pattern to the final result string, increments 
the pattern pointer, and goes to line 10190 to 
continue zero-filling. 

Line 10210 — This line places a zero in the 
current position of the final result string, incre- 
ments the pattern pointer and loops back to line 
10190 to continue zero-filling. 

Line 10220 — If there are no more digits to 
the left of the object string's decimal point, then 
the edit is complete, and the subroutine 
RETURNS to the main program. 

Line 10230 — If there are no more editing 
positions to the left of the pattern's decimal 
point, then the number is too large for the 
pattern. When this occurs, the program places 
all "*" in the final result string and RETURNs. 

Line 10240 — If the current position in the 
pattern is not a "#," this line places the 
character in the final result string, decrements 
the pattern pointer and loops back to line 
10230 to continue copying the left side of the 
decimal point. 

Line 10250 — This line moves the number 
from the object string to the final result string, 
decrements the pattern pointer and object 
string pointer, the loops back to line 10220 to 
continue copying the left side of the decimal 
point. 



10 REM KMKKKKKKMlCKKKKMKKltKlCKMKMKMKKXK 
28 REM « PRIWT USIMG DEMO * 

30 REM * # 

40 REM « BY TOM HUDSON * 

50 REM * * 

60 REM * A.N.A.L.O.G. COMPUTING «16 » 
70 REM KKKMMKKMlCMKKKKKKKKMICKKKMMlCKmCK 
80 DIM P$C20) ,0SC2e) ,FSC2e} 
90 ? :? "ENTER EDITING PATTERN"; '.INPUT 

PS 
180 ? :? "ENTER VALUE TO EDIT";:INPUT 
05 

110 GOSUB 10000 
120 ? :? "EDITED UALUE = ";FS 
ISO GOTO 90 

leoee rem kkkkkmmkickkkkkmkkmickmkmkmk 
10010 REM * PRINT USING SUBROUTINE * 
10020 REM KKMlClCKKKlCKKKlCKlCimKKMKMMKKK 

10030 LP=LENCPS) ;LO=LENCOSJ :FS{1)=" ": 

FSC203=" ":FSC2J=FS:FS="" 

10040 FOR K=l TO LP: IF P$CK,XJ="." THE 

N PD=K:G0T0 10060 

10050 NEKT K:PD=0 

10060 FOR K=l TO LO:IF 05(X,XJ="." THE 

N 0D=H:G0T0 10080 

10070 NEXT X:0D=0 

10080 IF PD THEN PWX=PD-1 : PDX=PD+1 :GOT 

10100 

10090 PHX=:LP:PDX=0 

10100 IF OD THEN 0UX=0D-1 : ODX=00+1 :GOT 

10120 

leiie ONX=Lo:ODX=o 

10120 IF NOT PD THEN 10220 

10130 FS(PD,PDJ="." 

10140 IF NOT OD THEN 10190: REM ««»ZER 

FILLJW* 

leiSO IF 0DX>L0 THEN 10190 

10168 IF PDX>LP THEN 10220 

10170 IF PSCPDX,PDX)<>"tt" THEN F5CPDX, 

PDX)=PSCPDX,PDX] :PDX=PDX+1:G0T0 10160 

10180 F$(PDX,PDX}=0$CODX^ODX) :ODX=ODX+ 

l:PDX=PDX+l:GOTO 10150 

10198 IF PDX>LP THEN 10220 

18288 IF PSCPDX,PDX)<>"lt" THEN FSCPDX, 

PDX)=P$CPDX,PDX) :PDX=PDX+1:G0T0 18198 

18218 FSCPDX, PDX>="8":PDX=P0X+l:60T0 1 

0190 

10220 IF NOT OUX THEN RETURN 

10230 IF NOT PMX THEN FOR X=l TO LP:F 

SCX,XJ="*":NEXT X:RETURN 

10240 IF PSCPWX,PWXJ<>"tt" THEN FSCPMX, 

PHX)=PSCPMX,PMX) :PUX=PMX-l:G0T0 10230 

10250 FS(Pi4X,PM«}=:0SC0MX,0MX] :0MX=0l«<- 

l:PUX=PMX-l:G0T0 10228 



CHECKSUM DATA 
(See pp. 20-24.) 



18 DATA 771,338,225,293,229,755,783,19 
,464,477,993,412,585,568,78,6982 
18028 DATA 572,131,886,220,806,221,966 
, 660 , 949 , 639 , 288 , 473 , 620 , 338, 330 , 8019 
10170 DATA 575,824,336,571,332,148,399 
,812,105,4102 



Hopefully, this article will give some helpful 
insights into the decision-making power of your 
ATARI computer system, as well as some ideas to 
help you make your programs more efficient. D 
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DO YOU SUBSCRIBE TO ANALOG 
COMPUTING ON DISK OR CASSETTE? 



. , .if not, then you 
should. Since issue 
1, ANALOG'S 

cassette and disk sub- 
scriptions have 
eliminated the 
need for you to 
spend hours typing 
in programs from the 
magazine. All of the 
programs in the 
magazine are on the 
cassette and disk 
versions. These 
programs are in the 
public domain, and 
are not copy- 
protected. 

1 year (12 issues) on 
cassette, $90.00, 
disk, $130.00; Vi 
year (6 issues) 
cassette, $48.00, 
disk, $72.00. 




^^ 



^ 



\ 



ANALOG COlVlf^UTINU 
Issue #16 




To subscribe on cassette or disk, 
send check or money order to: 



CASSETTE SUBSCRIPTION 

or 
DISK SUBSCRIPTION 

P.O. BOX 23 
WORCESTER, MA 01603 
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TOU CAN PLA^ FROGGER 

ATTOURPAD. 



FROGGER is one of the all-time great award-winning home video 
games. And now Parker Brothers has programmed it into 
all the most popular video and computer formats so you can | 
keep things hopping in your own home. 

Catch Frogger along with POPEYEf 
Q*bertr TUTANKHAM'" and SUPER 
COBRA™ where you buy your video and com- ' [^MRKER _^- 
puter games. You'll find it absolutely ribbitting. BROTHElo *J 

CoIecoVision is a trademark of Coleco Industries. Inc. © 1983 Parker Brothers. Beverly. MA t)1915. Intellivision is a trademark of Mattel, Inc. Commodore VIC 20 and Commodore 64 
are trademarks of Commodore Business Machines. Inc. Texas Instruments (la'-l.'V is a trademark of Texas Instruments, Inc. Atari,"" Atari Video Computer System," Atari 400/800/600XL '" 
and Atari 5200 '" Video Game System are trademarks of Atari. Inc. 'TM desiRnates a trademark of Sega Enterprises, Inc. it) 198:! SeiSi Enterprises, Inc. 
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CREATE-A-FONT 



24K Cassette or Disk 



by Vince Erceg 



The ability to create alternate character sets is an 
extremely powerful feature of the Atari computer. 
The method for creating such a set is relatively easy. I 
say "relatively" because if you don't have a program 
such as the one that follows this article, then the pro- 
cess becomes rather complicated, involving large 
amounts of arithmetic. Fortunately, the program 
that I present here requires nothing but a joystick 
and an active imagination. 

If you want to skip my explanation of how altered 
character sets work, just type in Listing 1 and RUN 
it. The operating commands are self-explanatory. 

How do you create an alternate character set? 
First, you must set aside some memory space (1024 



bytes for a full set or 512 bytes for a half-set). Then 
you either copy the Atari's ROM-based character set 
into the space, or fill it with your own revised char- 
acter data. Finally, you tell the Atari where you have 
placed your set with one simple POKE to location 
756 ($2F4 hex). ' 

Details — Details. 

Each letter, number, or graphics figure in a char- 
acter set is created by 64 individual pixels (the size of 
a dot in GRAPHICS 8), arranged in an eight by eight 
grid. The way that the actual character appears dep- 
ends on which pixels are "on" or "off." Figure 1 
shows Atari's pixel representation of the letter "A." 
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Figure 1. 

As you can see, there are eight bits per byte and 
eight bytes per character. Since there are 128 separ- 
ate characters in a complete character set, and each 
requires eight bytes, that means we must reserve 1 28 
X 8 or 1024 bytes of RAM for our new set. If you are 
using GRAPHICS modes 1 or 2, then you need re- 
serve only 512 bytes since you can only display half 
of the set in either of these modes at a time. 

How are pixel patterns actually stored in memory? 
Figure 2 shows how the position of a pixel is con- 
verted into a number. 

BITS 

7 6 5 4 3 2 10 
128 64 32 16 8 4 2 1 
Figure 2. 



The decimal value of each pixel position in a 
byte is shown under its respective bit number (0-7). 
The total value of the byte is obtained by adding to- 
gether the decimal values of all of the bits that are 
"ON," or set. If all of the bits are set, the value of the 
byteis 128+64+32+16+8 +4+2+1, or 255. (255 is 
the maximum number that a byte can hold, and also 
the maximum number that can be POKEd using 
BASIC.) If bits 7 and alone were set, the byte value 
would be 128+1, or 129. Remember, when a bit is set 
it equals 1. It does NOT equal zero. 

Referring back to Figures 1 and 2, let's figure out 
the byte values of the letter "A." 
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= 24 
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= 60 
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64+32+16+8+4+2 


= 126 
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= 102 
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Now we are ready to relocate the character 
set. When you create your own character set and 
plan to store it in memory, you must reserve at least 
IK (1024 bytes) for a full set and you must make 
sure that it begins on a memory address that is evenly 
divisible by 1024 (such as 38912). An easy way to do 
this is: 

POKE iee,PEEKCiee)-4 

Always execute a GRAPHICS command after 
POKEing location 106 so that screen memory will be 
location 756 will be the value found in location 

If you are using GR.l or GR.2, you need only 
reserve 512 bytes of RAM. This area must start at an 
address that is evenly divisible by 512 (such as 
38912, again). This memory can be reserved by: 

POKE ie6,PEEKC196J-2 

The location of your new character set will now 
begin at PEEK(106)*256. The number to poke in 
location in 756 will be the value found in location 
106. That's about all there is to it, except for a few 
things that must (unfortunately) be considered at all 
times: 

1) Make sure that your new character set does not 
overlap player/missile data. 

2) ScroUing the text window in a graphics mode 
scrolls up to 800 bytes past the top of memory! This 
effectively ruins your character set. The easiest way 
around this is not to scroll the text window. 

3) Hitting SYSTEM RESET or executing a DOS 
command will reset the character set pointer at 756 
to 224. You must remember to change it back to 
your value if any one of these things happens. 

Any easy way to avert danger from steps two or 
three is to simply subtract an extra four pages from 
location 106. It wastes memory, but it relieves you of 
some of the worries of possibly destroying your set. 
The beginning of your character set will then reside 
at (PEEK(106)+4)*256. 

One last thing. When altering a character set, 
remember that the characters are not in ATASCII 
order; rather, they are in the hardware's own internal 
order. To change the character data in the new set, 
look at the internal code table and find the character 
(see the Atari BASIC Reference Manual, page 55) and 
its associated value on the left. Multiply this value by 
eight and add it to the start of your set. The following 
demo program will show you what 1 mean. 



10 CH=57344:REM Start of the ROM set 

20 5T0RT=PEEKtl06J-5 

30 CHBft5=CSTftRT+l)*256 

40 POKE 106^ START :GRaPHIC5 

50 FOR X=e TO ie23:REH Move ROM set 

60 POKE CHBAS+K,PEEKCCH+X) :NEKT X 

70 POKE 756,CHBAS/256 

80 FOR X=CHBflS+33»8 TO CHB/»5+33*8+7 

90 POKE X,255:MEXT X 
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This program changes the letter 'A' to an inverse 
blank (cursor). 

The program. 

Now that you're familiar with how a character set 
works, type in Listing 1. After pressing START and 
a small delay, you will be facing the main display 
screen. In the upper right is an 8 X 8 grid with the 
heart character (CTRL/comma) enlarged. Pressing 
the joystick button will cause the pixel under the 
flashing dot to be toggled. (If it's on it will be turned 
off, and vice-versa. ) You will notice that this has a vis- 
ible effect on the character located in the middle of 
the screen. Any action that affects the enlarged dis- 
play will also affect the same character anywhere it 
appears. You can move the cursor around with the 
joystick and change the shape of any character as you 
please. 

Next to the blown-up image of the character being 
"edited," you will find the main menu. Here is a 
summary of all options and their functions: 

Edit: Select a character to edit. Cursor moves 
to middle of screen. Find character and press 
joystick button. 

Reverse: Reverses current character. Same 
effect as Atari logo key when in BASIC. 

Data: Prints values of the eight bytes in the 
current character and provides a look at the 
character when presented in a group. 

Invert: Flips current character upside down. 

Clear: Clears current character. Sets all 
values to zero. 

Save Font: Saves redesigned set to tape or 
disk. 

Load Font: Loads previously saved set from 
tape or disk. 

From (Copy): Copies character image from 
selected character to current character. 

To (Copy): Copies current character image 
to selected character. 

Scroll up: Scrolls character image up. 

Scroll down: Scrolls character image down. 

Scroll left: Scrolls character image left. 

Scroll right: Scrolls character image right. 

Undo: Undoes all changes made to current 
character since the last Edit. 

Kolor changes:( Sorry about the spelling.) 
Allows you to change any color register. 

Quit: Exit program. 

Antic 4/5: Changes display to Antic mode 4 
(see below) and changes appearance of grid. 

LOGO: Atari logo key copies image from 
ROM character set. 

START: Allows you to type several 
characters in succession, so you can see how 
they look next to each other (e.g. ; two characters 
making a car or boat). 

OPTION: Disk directory. 



The Antic 4/5 command changes the display list 
so that the characters are now in mode 4. Pressing A 
again will switch you back to the original display. 

Most of the characters in mode 4 are 
indistinguishable because they are only four pixels 
wide instead of eight. This loss of resolution is the 
price that you must pay in order to get multicolored 
characters. Not only did the display list change, but 
the editing grid did also. This was done because the 
color that is displayed depends upon which binary 
number you place in each pixel. These numbers are 
related to the Atari's color registers as follow: 



00 
01 
10 
11 



Background 
Playfield 
Playfield 1 
Playfield 2 



Playfield 3 can be used (binary 11), but only with 
an inverse character. 

If you are in the "printing" (START) mode and 
you choose GRAPHICS 1 or 2, you may view each 
half of the character set alternately by repeatedly 
pressing RETURN. 

When using "K"olor change, you must specify 
both color and luminance. The luminance can be any 
even value between and 14; the color values range 
from 0-15, and are interpreted as follows: 



Grey 

Gold 

Orange 

Red 

Pink 

Purple 

Blue 

Blue 

Med. Blue 

Dk. Blue 

Blue-Grey 

Olive 

Med. Green 

Dk. Green 

Orange Green 

Orange 



GTIA colors may be significantly different. D 



10 REM CREflTE-0-FONT by Wince Erceg 

20 REM 

36 REM PROGRAM WRITTEN: 8/2/83 

40 REM 

58 GOSUB 1508:DIM FM5 (14J , EORS (18) , CS f 

183,ftSC25),KFRSt323,CLEftRSC42J , B CC7) ,fl 

fC7),U{C7) .E5CS(C1),LFS{C1) , DH5 tClJ 

55 LF5 = CHRSC30) :DI«S = CHRS(29) :A5 = " ":flS 

tC2J=0HS:flSCC3)=LFS:flS(25J::" ";flS{C4J = 

fi$;CS="ERDICSLFT-=+»UKO:fi" 

70 ESCS=CHRS{273 :GRflPHICS C0 : GOSUB 122 

0:FOR I=C1 TO 18:REQD J : EORS (I) =CHRS t J 

) :NEXT I 

75 FOR I=C1 TO 32: READ J : HFRS CI3 -CHRS t 

J) :MEKT I 
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89 FOR XrCO TO C7 :B fC7-K3 =INT fC2AX+0 . 5 
) :HEXT H 

90 K=PEEK CCiee} -C8 : PM= CX + C23 *C256 : POKE 
623,C1:P0KE 54279, X 

95 POKE 53277, C3:X=X-C8;Y=U5RC6DRCXFRS 

J,57344,X«C256) 

100 GRAPHICS CeiPOKE C559,Ce:P0KE 538, 

155:P0KE C16,C64:P0KE 53774, C64 

110 POKE C756,X:CHBAS=X#C256:fl=U5RCfiDR 

CCLEfiHS),PM-C256«C2,C256»C4J :P0KE 705, 

148-.P0KE 710,Ce:P0KE 712,148 

120 POKE 53248, 168:P0KE 53250, 168 : POKE 

53251, 168:P0KE 704, C255 : POKE 706, C4 
125 POKE 707,C6:POKE 53256, C3 : POKE 532 
58, C3 

130 POKE 752,Cl:F0R I=Ce TO C3:F0R J=C 
TO 31:P05ITI0M J+C4,I+C15:? E5C5;CHR 
S{I«32+J) ; IHEXT J:HEXT I 

140 POKE 53259, C3:F0R I=PM-107 TO PM-C 
64:P0KE I,C8:MEXT I:POKE 53253,160 
150 DL=PEEKtC560l+PEEKCC561)»C256+C5»C 
5:P0KE &L-19,C13:P0KE 0L-C7,C13 : POKE D 
L,C13 
160 FOR I=PK+231 TO PM+310 5TEP C8 : FOR 

J=CO TO C3:P0KE I+J,85:P0KE I+J+C128, 
170: POKE I+J+C4,170 

178 POKE I+J+132,85:HEXT J:MEXT I:PM=P 
M+C5*C5:G0SIIB 188 : Z=C64 : POKE C559,46:G 
OTO 430 

180 P05ITI0K C2,C3:? "Sdit":? "Severse 
■':? "Hata":? "Hnwert" 

185 ? "Blear":? "gave Font":? "ioad Fo 
nt";? "HroM (CopyJ" 

190 POKE 82,14:P0SITI0H 14, C3:? "Qo CC 
opy)":' ESCS;CHRStl563," Scroll UP" 
195 ? E5CS;CHRSC157J;" Scroll DK":? ES 
C$;CHRS£158) J" Scroll Left":? ESC5;CHR 
Stl59J;" Scroll RT" 

200 ? "ffindo":? "Qolor change":? "Q^it" 
:P0KE82,C2: POSITION C2,ll:? "Bntic 4/ 
5 flirrn fttari":RETURK 
210 flM=CO:POKE 634,C8iP0KE 702,C64:IF 
PEEKCC0MS0L)=C6 THEM 990 
220 IF PEEK(C0HS0LJ=C3 THEN 1400 
230 POSITION XCt30,VC+C3:? "i":P0SITI0 
N XC+30,VC+C3:? " " 
235 IF STICK CC0)=C15 OND STRIG CCOJ AND 

PEEKfCHJ=C255 THEN 210 
240 IF NOT STRIG CCOJ THEN 980 
250 S=STICK(C0) :IF PEEK CCHXC255 THEN 
330 

260 XC=XC+(S>C4 AND S<C8J-CS>C8 AND S< 
C12} 

270 VC = YC+ f S=C5) * tS=C9J + (S=C13) - CS=C6) 
-(S=C103-(5=14) 
280 IF XC<CO THEN XC=C7 
290 IF XC>C7 THEN XC=C0 
300 IF YC<C0 THEN VC=C7 
310 IF YOC7 THEN VC=CO 

320 POKE CONSOL,C0:POS1TION XC+30,YC+C 
3:? "■";:FOR X=C1 TO C5»C5:NEXT X:G0T0 

210 
330 IF PEEKfCH3=39 THEN POKE CH,66 
340 CLOSE »Cl:OPEN ttCl , C4, CO, "K : " : GET 
«C1,X:X=X»(X>41 AND X<863:IF NOT X TH 
EN 210 
350 FOR I=C1 TO 18:IF CS (I, I) OCHRS tXi 

THEN NEXT I:GOTO 210 
368 ON I GOTO 420,440,450,500,510,520, 
550,580,610,630,650,670,700,730,740,76 
0,780,1150 

370 TRAP 390:X1=26:FOR K=160 TO 40 STE 
P -C4:P0KE 53253. XiPOSITION X1+C1,C3:? 

AS:X1 = X1-C1:IF XKCl THEN 390 
380 NEXT X 
390 FOR X1=X TO 160:POKE 53253, XI : NEXT 

X1:P0SITI0N C2,C3:RETURN 
400 IF NOT STRIG CCO) THEN 40© 
410 GOTO 210 
428 G0SU6 800 

430 CHAR=CHBAS+Z«C8:F0R X=C8 TO C7:U{X 
J=PEEK(CHAR+XJ :NEXT X:GOTO 950 
440 FOR X=PM TO PM+31:P0KE X,C255-PEEK 
CX}:SOUND C0,X,C10,C8:NEXT X:G0T0 970 
450 G05UB 370: POKE 538, C0: FOR I=C0 TO 
C7:P0SITI0N 23,I+C3:? PEEKtCHAR+IJ ; :NE 
XT I 



455 POSITION C2,C0:? " PRESS JOYSTICK 

460 ? "BUTTON TO CONTINUE"; : LOCATE CX* 

C4,CY+C15,Z:P0SITI0N CX+C4, CY+C15 :? ES 

CS;CHRSfZJ J 

465 FOR I=C1 TO C4:F0R JzCl TO C4 

470 POSITION I+C3,J+C5:? ESC$; CHRS CZJ ; 

:POSITION I+C9,J+C5:? ESCS;CHR5CZ+C128 

>; :NEXT J:NEXT I 

488 IF STRIG (C03 THEN 488 

490 POKE 538,155:G0SUB 370:GOSUB 180 :G 

OTO 210 

500 FOR IrCO TO C7 : A fl) =PEEK CPM+I»C4J : 

NEXT I:FOR I=C0 TO C7:F0R J=CO TO C3:P 

OKE PM+I»C4 + J,A(C7-I) :HEXT J:NEXT I 

505 GOTO 970 

510 FOR X=PM TO PW+32:P0KE X,C0:SOUND 

C0,X,C6,C8:NEXT X :GQT O 970 

520 GOSUB 370:? "3331":? :? "FILE fdeu 

: f ilena»e.extJ":INPUT FNS:TRAP 52e:CL0 

SE ttCl 

525 OPEN ttCl,C8,C0,FNS:FOR X=C6 TO 182 

3 

530 I=PEEKCCHBA5+X3 :POKE CHBAS+X, C255 : 

POKE CHBAS+X, I;PUT ttCl , PEEK tCHBAS+XJ : N 

EXT X: GOSUB 370 

540 ? CHRSC2533;"SAVE COMPLETE" :FOR X= 

CI TO ieO:NEXT X:GOSUB 370:CLOSE »C1:G 

05UB 180:GOTO 210 

550 GOSUB 370:? "HJEE" : -> :? "FILE (dev 

: f ilenaMe.ext)":INPUT FNS:TRAP 578:CL0 

SE «C1 

555 OPEN »C1,C4,C0,FN$:F0R X=C0 TO 102 

3 

560 GET ttCl,Q:POKE CHBAS+X, C255 : POKE C 

HBA5+X,ft:NEXT X:GOSUB 370 

565 ? CHRSC253J;"L0AD COMPLETE" : FOR X= 

CI TO 1O0:NEXT X 

570 GOSUB 370: CLOSE ttCl:GOSUB 180; GOTO 

438 
580 SAX=CX:SAY=CY: GOSUB 370:? "LOCATE 
CHARACTER TO COPY";? "AND PRESS J0Y5TI 
CK BUTTON":GOSUB 800 : CX=SAX ; CY=SAY 
590 FOR X=Ce TO C7:P0KE CHAR+X, PEEK fCH 
BAS+Z»C8+X) :NEXT X:GOSUB 370:G0SUB 180 
600 FOR I-CQ TO C7:F0R J=C0 TO C3:P0KE 

PM+I»C4+J,PEEKCCHBAS+Z*C8+IJ :NEXT J:N 
EXT I:G0T0 218 

610 SAX::CX:SAY=CY: GOSUB 370:? "LOCATE 
CHARACTER TO ":? "REPLACE ANO PRESS":? 

"JOYSTICK BUTTON":GOSUB 800:CX=SAX 
620 CY=SAY:FOR X=C0 TO C7:P0KE CHBA5+Z 
«C8+X,PEEK{PM+X»C43 :NEXT X : GOSUB 370:G 
OSUB 180:GOTO 210 

630 FOR I=C0 TO C7:A{I)=PEEK(PM+I*C4} : 
NEXT I:X=A(C0J :FOR I=C1 TO C7:A(I-C1)= 
A(I>;NEXT I:AtC7)=X:F0R I=CO TO C7 
640 FOR J=C3 TO CO STEP ~C1:P0KE PM+I« 
C4+J,AfI3 :SOUND CO, 100-I»C4-J, lO, C8 : NE 
XT J: NEXT I: GOTO 970 

658 FOR I=C0 TO C7 : A CIJ rPEEK {PM+I*C4J : 
NEXT I:X=:A(C7) :FOR I=C7 TO CI STEP -CI 
:ACI)=:A(I-C1J :NEXT I;AtCO)=X 
660 FOR I=C7 TO CO STEP -C1:F0R J=C0 T 
C3:P0KE PM+I*C4+J,AtI) ;50UND CO,I»J, 
C12,C8;NEXT J:NEXT I:GOTO 970 
670 FOR I=C0 TO C7 : A tIJ =PEEK tPM+I«C43 ! 
AtI>=A(I)»C2 

680 IF AtI3>C255 THEN 6 (IJ =A CI3 -C255 :G 
OTO 688 

690 NEXT I:FOR I=C0 TO C7:F0R J=C0 TO 
C3;P0KE PM+I»C4+J,AfI3 : SOUND C8,I,C8,C 
4:NEXT J:NEXT I:GOTO 978 

700 FOR I=C0 TO C7:ACI}=PEEKfPM+I*C43 : 
J=ACI3/C2:IF J=INT(J) THEN A(I3=J:G0T0 

720 
710 ACI3=INT(J3+C128 

720 NEXT I:FOR I=C0 TO C7 : FOR J=C8 TO 
C3:P0KE PM+I»C4+J,ACI3 :SOUND Ce,C7-I,C 
8,C4:NEXT J:NEXT I:GOTO 978 
738 FOR X=C0 TO C7;P0KE CHAR+X, U tX) : NE 
XT X:GOTO 950 

740 GOSUB 370: TRAP 740:? "COLOR REGIST 
ER";: INPUT R:? :? "COLOR"; : INPUT C:? : 
? "LUMINANCE": : INPUT L 

742 R=R+7e8:IF B<708 OR R>712 OR C<C8 
OR OC15 OR L<C9 OR L>C15 THEN 748 
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758 POKE R,C»C16*L:P0KE 705, PEEK C712J : 
G05UB 378:G05UB 188 5 IF NOT AM THEN 22 
8 

768 GOSUB^!?!:? -PRESS 'V TO EKIT PRO 
GRAM": CLOSE ttClrOPEM ttCl,C4, C8, "K :" :GE 
T aCl,H:IF X=89 THEN 798 

778 GOSUB 37e:G0SUB 188; GOTO 218,,^^,, 
788 FOR I=C8 TO SllPOKE PM+I,PEEK C5734 
4+CHflR-CHBAS+INTtI/C4JJ:NEKT IlGOTO 97 

798 GRfiPHICS C8:P0KE C559,34:P0KE 5327 

7,C8:P0KE C756,CHBftS/C256:P0KE 538, C8: 

END 

888 LOCATE CK+C4, CV+C15,Z :ORIG=Z 

818 XC=C8:VC=C8:L0C0TE CK+C4,CV+C15,Z : 

POSITION CH+C4,CV+C15:? ESC5 jCHHS CZ+Cl 

28-C128»CZ=C27)3; ^,^ ^ 

828 F8R K=C1 18 C18:IF STICK tC8J=C15 U 

ND STRIGtCBJ THEN NEXT K:G0TO 818 

838 IF N8T STRI6CC8J THEN 918 

848 POSITION CK+C4,CV+C15:? ESCSjCHRSC 

858 S=STICK(C81 :CXrCK+CS>C4 AND S<C8J- 

CS>C8 AND S<C123:CV=CV+CS=C53+tS=C9)+( 

SrC133 - CS=C6) - (5=C183 - (S=14) 

868 IF CX<C8 THEN CX=31 

878 IF CX>31 THEN CX=C8 

888 IF CY<C8 THEN CV=C3 

898 IF CV>C3 THEN CY=Ce 

988 POKE C0NS0L,C8:F8R X=C1 TO C18:NEX 

T X:GOTO 888 

918 IF Z>Ci27 THEN Z-Z-C128 : GOTO 918 

928 IF CZ>C64 AND Z<96J OR CZ>31 AND Z 

<65) THEN Z=Z-32:G0T0 948 

938 IF Z>-C1 AND Z<32 THEN Z=Z+C64 

948 POSITION CX+C4,CY+C15:? E5C5;CHRS( 

ORIGJ J : RETURN 

958 SOUND C8,C8,Ce,C8:F0R I=PM^Tq PM+3 

1 STEP C4:F0R J=C8 T8 C3:P8KE I+J,PEEK 

CCHAR+tI-PM3/C4J :NEXT J: NEXT I 

968 GOTO 218 „„^„ 

978 SOUND C8,C8,C8,C8:F0R X=PM TO PM+2 

8 STEP C4:P0KE CHAR+ tX-PM3/C4,PEEK CXJ : 

NEXT X:G0T0 218 

988 X=USR CADR CEORS) , PEEK {PM+VC#C4 J , B CX 

CJJrFOR I=C8 Te C3tP0KE PM+YC«C4+I, X:P 

OKE CHAR+YC,X:NEXT I:GOTO 488 

998 AM=Cl:P8KE 752.C l;PeKE 538,Ce:P0SI 

HON C3,C8:? "PRESS Maiam TO RETURN T 

EDITING "; 

1808 GOSUB 378:? "1 - ANTIC MODES 4 * 

5":? "2 - GRAPHICS MODES 1 & 2":? "3 - 

TEXT MODE 8"':? :? "WHICH"; :TRAP 998 
1818 POKE 752,C8:INPUT MlPOKE 752,C1:I 
F M<C1 OR M>C3 THEN 998 
1828 LIM=38:IF M=C2 THEN LIM=18 
1838 IF M=C1 THEN POKE DL+Cl, C4 :POKE D 
L+C2 C5 

1848' IF M=C2 THEN PeKE DL+Cl ,C6 : P8KE D 
L+C2 C7 

1858'? :? " [iia*M:i Clear display":IF M= 
Change colors" 



CI THEN ? "E 



1868 POSITION C2,21:F0R X=C2 TO LIM:CL 

OSE tICl'.OPEN »C1,C4,C8,"K:":P0KE CH,C2 

55 

1878 IF PEEKfC8NS0LJ=C5 THEN POKE 538, 

155:G8T0 1138 

1888 IF PEEKCC0N50LJ=C6 AND M=C1 THEN 

748 

1898 IF PEEKtC0NS0L)=C3 THEN GOSUB 114 

e:GOTO 1868 

1188 IF PEEK(CH3rC255 THEN 1878 

1118 IF MOC2 8R PEEKtCH3<>C12 THEN 11 

28 

1115 I::PEEK tC186J -C16 : J^PEEK (C7565 : P8K 

E C756, J+C2»(I=JJ-C2*CI<>JJ :P8KE CH,C2 

55:G8T0 1878 ^ „,. 

1128 GET ttCl, I: POSITION X,21:? ESC5;CH 

RS CI3 : : POSITION X+28»CM=C21 , 22- (M^C2J : 

? E5CS;CHRSCI); :NEXT X 

1125 GOTO 1868 

1138 FOR I=C1 18 C3:P0KE DL+I,C2 :P851T 

ION CO, 21:? CHRStl56J :HEXT I:G8SUB 378 

:GOSUB 188:G8T0 218 

1148 FOR I=C1 TO C3:P0SITI0N C8,21:? C 

HHS (1563 : NEXT I: RETURN 



1158 X=284:V=51:IF PEEK CPM+C256} =284 T 

HEN X=85:Y=178 

1168 FOR I=PM+C256 TO PM+285 STEP C8:F 

OR J=C8 TO C3:PeKE I+J,X:POKE I+J+C128 

,Y:POKE I+J+C4,Y:P0KE I+J+132,X 

1178 NEXT J: NEXT I: FOR I=DL-C6 TO DL-C 

1:P0KE I,C2»tX=853+C4»tX=2843 :NEXT I:G 

OTO 210 

1188 DATA 104,184,133,284,184,133,285, 

184,69,284,133,213,184,69,285,133,212, 

96 

1198 DATA 184,184,133,213,184,133,212, 

184,133,215,184,133,214,162,4,168,8,17 

7,212,145,214,288,288,249,238,213 

1280 DATA 238,215,282,288,248,96 

1218 REM ALMOST DONE!! 

1228 POKE C559,C8:DL=PEEKCC568JtPEEKtC 

5613»C256:PeKE 718, Ce : PeKEDL+C7, C7 

1225 PeSITION C4,C2:? " agg^PB " :CHR$ tl4 

13 " :P8KE 752 CI 

1238 ? "B";CHRSC1413;"QaBB"':P8KE DL+C8 

,C18 

1235 FOR X=C2 TO 38: POSITION X,C8:? CH 

R$C1413; :P8SITI0N X,C3:? CHR$(1413 ; :NE 

XT X 

1248 POSITION C3,C7:? "'THE ULTIMATE C 

HARACTER SET EDITOR'":? :? :? " Cre 

ated 8/2/83 by Uince Erceg" 

1258 PeSITION 19,22:? "PRESS fcifjl:li TO 

BEGIN"; :POKE DL*C13,34:P0KE Di+21,58:P 

OKE 54277, C7 

1268 RESTORE 1238 :F8R 1=1536 T8 1554 :R 

EAD J:P8KE I,J:NEXT I:P8KE C559,34 

1265 A=USR 115363: POSITION 19, CIS:? "PL 

EASE WAIT" 

1278 FOR X=C7 TO C8 STEP -C1:P8KE 5427 

7, X: POKE 54276, X: FOR Y=C1 TO C7: SOUND 

C8,X»C2,C8,C8:NEXT Y:NEXT X 

1275 SOUND C8,C8,C8,C8 

1288 POKE 552,lll:P0KE 553,C6:P0KE C8, 

C8:F0R 1=1578 T8 1695: READ J: POKE I, J: 

NEXT I: FOR I=C1 TO 42: READ J 

1298 CLEARS (13 =CHRS (J3 : NEXT I: RESTORE 

: RETURN 

1388 DATA 184,173,31,288,281,6,248,18, 

232,142,18,212,142,25,288,76,1,6,96 

1318 DATA 8,8,8,48,58,37,51,51,8,179,1 

88,161,178,188,8,52,47,8,35,48,33,46,3 

9,37,8,36,41,51,48,44 

1328 DATA 33,57,8,44,41,51,52,8,8,8,8, 

8,8,8,48,58,37,51,51,8,175,176,188,169 

,175,174,8,38,47,58 

1338 DATA 8,36,41,51,43,8,36,41,58,37, 

35,52,47,58,57,8,8,165,88,133,203,165, 

89,133,284,168,8,166,0,248 

1348 DATA 13,185,34,6,145,283,288,192, 

38,288,246,76,148,6,185,73,6,145,283,2 

88,192,38,288,246,169,155,141,26,2 

1358 DATA 165,8,73,1,133,8,96,184,184, 

133,284,184,133,283,104,133,286,184 

1378 DATA 133,285,166,286,168,8,169,8, 

145,283,136,288,251,238,284,282^48,6,2 

88,244,164 

1398 DATA 285,288,248,198,284,168,8,14 

5,283,96 

1488 GOSUB 378: TRAP 1468:CL8SE ttCl:OPE 

N «C1,C6,C8,"D:».*" 

1418 FOR X=C3 TO 14:INPUT «C1;FNS:FNS= 

FNS(C3J:1F FNS(C3,C123="FREE SECTO" TH 

EN 1468 

1428 IF X/C2=INT(X/C23 THEN POSITION C 

15, (X+C13/C2:? FNS;:G0T0 1440 

1438 POSITION C2, (X+C23/C2:? FNS; 

1448 NEXT X 

1458 ? :? :? "PRESS ANY KEY TO CONTINU 

E":GOSUB 147e:G0T0 1418 

1468 ? :? :? "END.. PRESS ANY KEY":G8SU 

B 1478:G8SUB 18e:G8T8 218 

1478 POKE CH,C255 

1488 IF PEEK(CH3<C255 THEN P8KE CH,C25 

5:G0T8 378 

1498 GOTO 1488 

1588 C8=8:Cl=l:C2=Cl+Cl:C3=C2+Cl:C4=C3 

tCl : C5=C4*C1 : C6=C5+C1 : C7=C6+C1 

1518 C8=C7+Cl:C9=C8*Cl:C18=C9+Cl:C12=C 

18+C2:C13=C12+Cl:C15=C13+C2 

1528 C16=C15+C1 : C27=C12tC15 : C64=C8»C8 : 

C186=186 ;C127=127 : C128=C127+C1 
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SWIG 

SOFTWARE WRITERS INTERNATIONAL GUILD 



SCHEDULED 

SWIG ACTIVITIES & 

MEMBERSHIP BENEFITS 

(1) $10,000 PROGRAMMING 
CONTEST (Members only) 

(2) NATIONAL COMPUTER 
WEEK (May 11- 
May20,1984) 

(3) ANNUAL CONFERENCE 
AND SOFTWARE AWARDS 
CEREMONY (During 
National Computer Week) 

(4) CONSULTANT REGISTRY 
(With computer store refer- 
ral system for customized 
software) 

(5) JOB PLACEMENT SER- 
VICE (Free to individual 
members, fixed maximum 
fee to companies) 

(6) FREE SEMINARS & 
MEETINGS LOCALLY 

(7) SOFTWARE LIBRARY 
LENDING & EXCHANGE 
SERVICE (Professional 
quality assemblers, 
utilities, games, etc.) 

(8) SOFTWARE LOCATION 
SERVICE (For companies 
& individuals-if it exists, 
SWIG will find it. If not, 
see #9) 

(9) SOFTWARE DEVELOP- 
MENT SERVICE (From 
novice to scientist, SWIG 
members can work on any 
project-from applications 
to games to R&D) 

(10) LEGAL SERVICE 

(11) AGENT (SWIG can 
represent you in sales to 
software publistiers) 

(12) 24 HOUR - 7 DAY BULLE- 
TIN BOARD SYSTEM 
(BBS) ACCESSIBLE BY 
COMPUTER FREE 

(13) AND MORE!!!! 



THE LARGEST PAID MEMBERSHIP PROGRAMMERS GUILD 
OVER 5,000 MEMBERS WORLDWIDE!! 

MEMBERSHIP APPLICATION FOR 
SOFTWARE WRITERS INTERNATIONAL GUILD 



NAME 



ADDRESS 
CITY 



STATE 



ZIP 



PHONE #( 



). 



• CLASSIFICATION: 

D NOVICE D BEGINNER TO ADVANCED 

D ADVANCED WITH ON THE JOB EXPERIENCE 



n RESEARCH/SCIENTIST 



WHAT EQUIPMENT DO YOU HAVE EXPERIENCE WITH &/0R ACCESS TO &/0R 
PLAN TO BUY? 



D MAINFRAME □ MINI 

BRAND NAME(S): D IBM 

n COMMODORE 



D MICRO D DESIGN/R&D 

n XEROX D APPLE D Tl 

J RADIO SHACK D ATARI D OSBORNE 



D TIMEX/SINCLAIR 
n OTHER 



n NORTH STAR 



D HEWLETT PACKARD 



AREAS OF INTEREST 

D DATA PROCESSING D BUSINESS APPLICATIONS D GRAPHICS 

D LEGAL D VOICE D MEDICAL D APPLIANCE (HOME) CONTROL 

n ROBOTICS D GAMES D MUSIC D R&D D OTHER 

MEMBERSHIP ACTIVITIES AND SERVICES OF INTEREST 

READ THE LIST ON THE LEFT AND CIRCLE THE NUMBERS BELOW THAT APPLY. 
1 2 3 4 5 6 7 8 9 10 11 12 



D I HAVE ENCLOSED $20 ANNUAL MEMBERSHIP FEE 
(MAKE CHECK PAYABLE TO: SWIG) 

RETURN TO: SWIG 

RO. BOX 87 

STONY POINT NEW YORK 10980 

(914) 354-5585 



SWIG(c; SOFTWARE WRITERS INTERNATIONAL GUILD 



D CK 



n MO 



From the editors of 

A. N. A. L.O.G. Computing 

1 




$14.95 



aC^FILDE 



COMPENDIUM 



The best ATARI® Home Computer Programs from the first ten issues of A.N. A.L.O.G. Computing Magazine. 










The ANALOG Compendium is available at selected book and computer stores, or you can order it direct. Send 
a check or money order for $14.95 -^ $2 shipping and handling to: ANALOG Compendium, P. O. Box 615, Holmes, 
PA 19043. 

Or you can order by phone with MasterCard or VISA. Call toll free: 1-800-345-8112 (in PA, call 
1-800-662-2444). For orders outside tlie U.S., add an additional $5 air mail, $2 surface. 



ISSUE 16 



ANALOG COMPUTING 



PAGE 79 



1530 C255=255 : C256=C255+C1 : C559=559 : C5 
68=C559+C1 : C561=C56e+Cl : C756=756 : CH=C7 
56+C8:C0H50L=53279 
1540 RETURN 



CHECKSUM DATA 

(See pp. 20-24.) 



10 DfiTO 609,253,228,257,336,739,580,95 

4,221,386,605,540,605,798,457,7568 

130 DftTfl 623,45,108,254,372,233,666,14 

7,679,821,735,56,627,652,987,7805 

250 DftTft 287,206,206,117,110,100,93,57 

9,623,17,221,996,906,786,624,5871 

400 DflTft 945,697,986,874,690,10,492,96 

5,222,791,381,758,924,733,492,9960 

520 DftTft 428,836,133,668.409,841,358,7 

36,487,981,178,524,756,240,538,8093 

640 DliTft 48,595,261,21,386,985,805,500 

,312,737,585,823,555,972,573,8158 

770 DflTft 26,787,922,173,495,703,975,60 

4,313,52,41,100,101,565,653,6510 

920 DrtTft 929,541,987,668,722,849,537,3 

18,28,722,155,597,605,237,644,8539 

1070 DATA 305,71,348,941,936,669,269,7 

23,661,823,596,259,232,65,224,7122 

1208 OflTft 444,172,902,303,697,948,783, 

142,7,179,61,824,637,200,673,6972 

1310 DfiTfl 74,593,373,81,679,759,100,66 

3,788,283,23,545,900,911,129,6901 

1480 DftTift 995,737,819,343,647,156,798, 

4495 



HERE COMES THE FUN! 
PLAY 

BEAT 

THE 

beajles 



on 



Interactive'^HSoftware 



48K Disk or Cassette $24.95 

Available Now. Order Direct From: 

Interactive Software 

P.O. Box 991 

Bala-Cynwyd, pa 1 9004 

For All ATARI Brand Computers 

®1983 INTERACTIVE SOFTWARE. (21 5) 725-9756 

NOT AFFILIATED WITH ATARI, INC. 




A subscription to Games Datamag gives you 
more games, news & reviews for your money! 

Games Datamag g^ves 
you more software value 

Discover new ways to use your ATARI 
computer and get more for your money. 

Games Datamag is a new subscription 
on cassette featuring in each issue: 

1. 16K GAME that's ready to run 

2. DISKETTE version at no extra cost 

3. NEWS on the latest games & techniques 

4. Game reviews and contests 

The Fall issue game is a treasure hunt 
called Treasure Palace. This winter we 
feature Battle CruiserNebula. Don't 
miss a single issue! 

$24 a year, quarterly; or sample issue 
for $8 (overseas orders add $8) from 
USCSDept. 81, 1737 Walnut Grove, 
Decatur IL 62526 




APROM 

A GENERAL PURPOSE 

EPROM PROGRAMMER 

Stored programs run at ROM 

speed, 16K bytes in two 8K 

blocks. Programs 2764 or 

27128 at 8K bytes/minute. 

Either can be transparent or 

active under program control 



SIX PACK 

Six 8K blocks 

software 
switched for 

2764 or 
27128 EPROM 



DATARASE 

Erases two EPROMS 

Send money order or check to: 



Aprom with disk software, 
instruction book and 

Textool ZIP socket 99-50 

SIX PACK 44.95 

DATARASE 34.95 

Eproms not included 2764 10.00 

Plus $2.00 shipping & handling 
Arizona residents add 6% tax 




Makers of AprOITIo 



7756 E Evans • Suite 400 • Scottsdale, AZ 85260 • 1602) 998-7550 



A New Data Storage System 
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by Sally Forth 



Here's FPLOT, the ultrahigh-speed graphics 
plotting routine I promised to bring you last month. 
It's designed exclusively for Atari's high-resolution 
2-color mode "F" (GRAPHICS mode 24 in 
BASIC). To use it, you must have valFORTH's 
standard graphics library and assembler LOADed 
into your system. The definition eats up a hefty 
chunk of dictionary space, but who cares? FPLOT is 
jast. 

Although the source screens are mostly self-docu- 
menting, a few clarifications are in order for the sake 
of beginners. FPLOT uses a technique known as 
"table lookup" to eliminate the time-consuming cal- 
culations used by the PLOT routine in Atari's 
Central Input/Output (CIO) utility. The twin 
ALLOT words in screen 1 set aside 384 bytes for the 
lookup tables; screens 2 and 3 set up negative and 
positive bit-masks for the plot logic. Screens 4 
through 7 define an assembly-language word 
(PLOTSETLJP) that initializes the lookup tables. It 
must be executed immediately after setting up the 
high-res screen (with a 24 OR. instruction) or 
FPLOT will not work. 1 could have written 
PLOTSETUP in FORTH, but speed is the reason for 
this entire exercise, right? 

Screens 8 through 12 contain the assembly- 
language definition of FPLOT. Syntax is identical to 



the PLOT word in valFORTH's standard graphics 
package. The color to be plotted (0-1) is specified 
with the valFORTH word COLOR, just like the 
ordinary PLOT. Strange things will happen if your 
plotting parameters exceed 319 for the X- 
coordinate, or 191 for the Y. FPLOT's lack of auto- 
matic range checking is part of the price you pay for 
extra speed. 

You can use FPLOT with the valFORTH word 
DR. (DRAWTO) because it saves the X and Y 
coordinates in the operating system locations 
COLORS and ROWCRS. If you're not using DR. 
and you want to make FPLOT even faster, 
eliminate Line 9 in screen 9 and Lines 6, 7, and 9 in 
screen 10. 

The demo words in screens 13-17 will show you 
just how much speed you can expect from FPLOT 1 
obtained screen-fill times of 9957 jiffies for the CIO 
plot and just 1632 jiffies for PLOT, a 6-times 
improvement. In case you're wondering, it takes 
Atari BASIC 24554 jiffies to fill a mode F screen 
with PLOTS ! 

Next month, I'll show you how to implement 
megaspeed line-drawing with FPLOT. D 

(FORTH scteem next page.) 
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SCREEN #1 

e ( HIGH SPEED MODE F PLOTTER > 

2 ( Reserve space -for tables ) 

4 DECIMAL 
5 

6 LABEL YLOWS 192 ALLOT < 1 sbs > 

7 LABEL YHIGHS 192 ALLOT ( msbs ) 
S 

9 ( OS equates ) 
18 

11 84 CONSTANT ROUJCRS 

12 85 CONSTANT COLCRS 

13 38 CONSTANT SAWSC 
14 

15 —-, 



SCREEN #5 



8 

1 

2 

3 

4 

5 

6 

7 

8 

9 

18 

11 

12 

13 

14 

15 



C HIGH-SPEED MODE F PLOTTER ) 
CODE PLOTSETUP 



X3AUE 

SAUMSC 1+ 

YPOS 

SAUMSC 

« 8 



BEGIN, 



'HIGHS 



YPOS 



STX, 
LDA, 
STA, 
LDY , 
LDX, 
CLD, 



LDA, 
STA, 



preserve X 
get msb o-f 
screen addr 
and also 1 sb 
in i t i ndex 
f^or sa+ety 


) 
> 
) 
) 
> 


start a loop 


) 


put msb into 
msb table 


) 



SCREEN #2 



SCREEN #6 



8 
1 

2 
3 
4 
5 
6 
7 
8 
9 

10 

11 
12 
13 
14 
15 



< HIGH SPEED MODE F PLOTTER ) 
2 BASE ! ( -for convenience ) 
LABEL hW^SKS ( plot masks ) 



inline 
nniiei 
nineii 
iineiii 
iiieiin 

11011111 
10111111 
01111111 



c, 
c, 

k 

c, 

^: 

c, 



11111110 

11111101 

11111011 

11118111 
11181111 
11011111 
10111111 

01111111 



C. 
C, 
C, 

c, 

c, 

l\ 



8 



3 
4 
5 
6 

-7 
t 

8 
9 
10 
11 
12 
13 
14 
15 



( HIGH-SPEED MODE F PLOTTER ) 
put I sb into 



YLOWS 



TYA 
X STA 
CLC 
# 40 ADC 



IF, 



ENDIF, 



YPOS INC, 



TAY 

I NX 

192 CPX 



Isb table 
■for addi t i on 
new o-f f set 

i -f carry set, 
increment msb 



save new 1 sb ) 
update _ index ) 
done 192 yet? ) 

— > 



SCREEN #3 



8 

1 
2 

3 
4 
5 
6 

f 

8 
9 
18 
11 
12 
13 
14 
15 



< HIGH SPEED MODE F PLOTTER ) 
LABEL PmSKS ( more masks ) 



C, 
C, 
C, 
8 C, 
C, 
8 C, 
8 C, 
C, 



DECIMAL 



1 C, 

10 C, 

100 C, 

1000 C, 

10000 C, 

100800 C, 

1000000 C, 

10008088 C, 



SCREEN #7 

< HIGH-SPEED MODE F PLOTTER > 

1 

2 EQ UNTIL, ( loop unti 1 



3 

4 

5 

6 

7 

8 

9 

18 

11 

12 

13 

14 

15 



index = 192 ) 

XSA'v'E LDX, (. restore X-req ) 
NEXT JMP, ( back to FORTH > 

C; ( end PLOTSETUP ) 



~> 



SCREEN #4 



SCREEN tt8 



8 
1 

2 

4 
5 
6 

8 
9 
18 
11 
12 
13 
14 
15 



( HIGH SPEED MODE F PLOTTER ) 

ASSEMBLER ( new vocabulary > 

N 4 -f- CONSTANT PNTR 

N 3 + CONSTANT XHI 

N 2 + CONSTANT XLO 

N CWSTAf-JT YPOS 



PLOTSETUP initializes the 
YLOWS and YHIGHS tables -for 
use by the high-speed plot 
routine. It should be called 
immediately a-fter setting up 
graph ics mode 24. ) 

— > 



8 < 
1 

2 < 

3 < 

4 ( 
5 

6 ( 
7 

8 < 

9 ( 



HIGH-SPEED MODE F PLOTTER > 

FPLOT is the actual plotting 
word. byntax is the same as 
the standard ClO-type PLOT: 



x-pos y-pos 

X-pos can range -from 8-319. 
Y-pos range is 8-191. No 

10 ( range checks are performed 

11 ( to save time, so be care-ful! 

12 ( Plot color is controlled by 

13 < the standard val FORTH word 

14 i COLOR. Legal UOLOR values 

15 ( are and I . > 



-> 
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SCREEN #9 






SCREEN #13 


( HIGH SPEED HODE F PLOTTER ) 




8 
1 

2 


< 


FPLOT DEMONSTRATION ) 


2 CODE FPLOT 








PLOTEST and FPLOTEST compare 


3 






3 




the speed o-f the standard 


4 # 2 LDA, 


C # DROP ualues 




4 




ClO-type PLOT with FPLOT. 


5 SETUP JSR, 


< move i nto N 




5 






6 XSAiv'E STX, 


( preserve X 




6 




They PLOT alt 61,448 pixels 


7 






7 




on a -full Mode F screen. 


8 YP03 LDX, 


< y- pos is used 




3 




using the system Ji-f-fy 


9 ROWCRS STX, 


< as an index 




9 




timers to clock the speed. 


le YLOWS ,X LDA, 


< into 1 sb/msb 




19 






11 PNTR STA, 


< of -f set tables 




11 




Be sure you've LOADed the 


12 YHIGHS ,X LDA, 


< to create a 




12 




val FORTH graphics library 


13 PNTR 1+ STA, 


< z-page pntr 




13 


( 


into your system be-fore 


14 


^ 




14 


( 


LOADing these words 1 ) 


15 


— 


-> 


15 




~> 


SCREEN #19 






SCREEN #14 


9 < HIGH-SPEED MODE F PLOTTER ) 




8 
1 


( 


FPLOT DEMONSTRATIO^J ) 


1 

2 < PNTR now con 

3 < absolute RAM 


tains the 
address o+ the 




2 
3 


19 CONSTANT TOCK ( the timer ) 

20 CONSTANT TICK < locations ) 


4 ( desired mode 


line. ) 




4 






5 






5 


8 


WRIABLE TIMING 


6 XHI LDA, 


< get msb >;-pos 




6 






7 COLCRS 1+ STA, 


■; -for OS usage 




7 


( 


Set up screen & colors ) 


3 XLO LDA, 


< get Isb x-pos 




8 




J^ W^ ^" .'b ^. \ V 


9 COLCRS STA, 


< also -for OS 




9 


2 


(jREADY 


10 XHI LSR, 


i divide x-pos 




10 




24 GR. 


11 .A ROR, 


< by 2 




11 




1 8 14 SE. ( whi te pixels ) 


12 .A LSR, 


< then 4 




12 




2 SE. ( black bkgnd ) 


13 .A LSR, 


< and then 8 




13 




1 COLOR ; 


14 TAY, 


( save x/8 in Y 




14 






15 




- ) 


15 




/ 


SCREEN #11 






SCREEN #15 


( HIGH-SPEED MODE F PLOTTER > 
1 






1 
2 


<; 


FPLOT DEMONSTRATION ) 


2 XLO LDA, 


( get Isb again 


> 


( 


Calculate & display 


3 #7 AND, 


< mask to get 




3 


< 


timer reading ) 


4 


< bit posi f ion 
( in plot byte 




4 






5 


> 


5 


; 


SHOWTIME 


6 .A ASL, 


< mu 1 t i p 1 y by 2 


) 


6 




TOCK C3 256 * 


7 CLRBYT ORA, 


( & superimpose 




7 




TICK C3 + 


8 


( bit 8 col or 




3 




TIMING ! 


9 


< data -for use 


) 


9 




8 GR. 


10 TAX, 


< as an index 




19 




TIMING 3 . 


11 


( into the mask 




11 




." Ji-f-fies with " ; 


12 


<: tables 


) 


12 






13 PNTR )Y LDA, 


< get plot byte 


) 


13 






14 NMASKS ,X AND, 


( mask plot bit 


) 


14 






15 


— - 


-> 


15 




""" / 


SCREEN #12 






SCREEN #16 


9 ( HIGH-SPEED MODE F PLOTTER > 

1 






1 
2 


( 


FPLOT DEMOr^STRATICrj ) 


2 PMASKS ,X ORA, 


< superimpose 




< 


Fi n screen with CIO PLOTs ) 


3 


< the plot bit 




3 






4 PNTR )Y STA, 


( and shoiJj the 




4 


a 


PLOTEST 


5 


< new byte 




5 




GREADY 


6 XSAUE LDX, 


< restore X-reg 




6 




TOCK ! ( zero timers ) 


7 NEXT JMP, 


( and return 




7 




192 DO 


8 






8 




320 DO 


9 C; 


< end FPLOT 


) 


9 




1 J PLOT 


10 






10 




LOOP 


11 






11 




LOOP 


12 






12 




SHOWTIME 


13 






13 




." CIO PLOT." CR ; 


14 






14 






15 


- 


-> 


15 




— > 



SCREEN #17 



8 

1 
2 
3 
4 


( FPLOT DEMONSTRATION ) 


( Fill screen with FPLOTs ) 


: FPLOTEST 


5 


GREADY 


6 


PLOTSETUP C in it plot tables ) 


7 


TOCK ! < zero timers ) 


3 


192 8 DO 


9 


320 e DO 


le 


I J FPLOT 


11 


LOOP 


12 


LOOP 


13 


SHOWTIME 


14 


." FPLOT." CR 5 


15 





Sally welcomes your questions about 
the FORTH programming language, 
and will publish the most interesting 
letters in future columns. Write to her 

^^°' ANALOG Computing 
P.O. Box 23 
Worcester, MA 01603 



u 



THIS ONE'S A 

KEEPER. 

Unlike games that get 
stale", i;ou'll USE this 
program- again & again 
for years to come. 

There's nothing else like 

DECISIONS . . . DECISIONS'" 

A TOOL FOR MAKING LOGICAL CHOICES. 

Combines scientific decision-making principles 
with your computer's power, to shine new light 
on business, personal, and family decisions. 

"EASILY SORT OUT CONFUSING INFORMATION. 
"REMOVE UNCERTAINTY FROM DIFFICULT CHOICES. 
..CLARIFY AND QUANTIFY YOUR IDEAS. 
..SHOW OFF YOUR COMPUTER'S PRACTICAL SIDE! 

Leads you step by step through any problem ; 
analyzes your choices with swift computer 
accuracy; displays the results in easy to 
interpret graphic form, on your TV screen. 

DECISIONS. ..DECISIONS program disk for 48K ATARI 
and complete reference manual, in handsome binder, 
only $37.50 including shipping, add S2.25 tax in Calif. 
ORDER NOW-youll be glad you did. Send check to: 

m LATERAL ^ o.p, 2 

V\*;?f^^!F™iiiiiii«iiiiiii^"™^ RO. Box 605 

^.SOFTWARE st«ton,cA doeeo 



If 



CASADAPTER 

"IT REALLY WORKS!" 



CASADAPTER is a cassette interface that al- 
lows you use your own cassette recorder or 
stereo with the Atari 400/800/1200®. 
CASADAPTER will handle motorcontrol, audio 
and data channels. 

»34.95 



48K 



RAM BOARD FOR: 

THE ATARI 400® 
»1 15.00 





COMPUTER PRODUCTS 



12 Scamridge Curve 
Buffalo, New York 14221 
(716) 632-3441 

Dealer Inquiries Invited 
'Product of Gemini Software 



Add '2.50 shipping. 

Send check or money order 

C.O.D. accepted 

New York State Residents 

add 7% tax 

®Atari is a trademark of 

Atari, Inc. 



*MAGIC DUMP is a screen dump utility that allows 
you to dunnp a Hi-Resolution graphics picture to a 
printer in a variety of different sizes. MAGIC DUMP 
is used in the RIGHT hand cartridge slot, so it is 
always ready to use. 

MAGIC DUMP will work with all Epson printers and 
Gemini printers, the Centronics 739 printer, and the 
Prowriter or N.E.C. printers. $cq qc 



*GTIA DRAW Is a drawing program that uses all the 
features of Atari's® new GTIA chip. GTIA DRAW will 
give you three extra graphics modes. Mode 9 (16 
luminances and one color). Mode 10 (8 luminances 
and color), or Mode 11 (16 colors and one lumi- 
nance). 

GTIA DRAW will allow you to: 

• Add text to pictures 

• Blank horizontal or vertical lines 

• Shift the screen in any direction 

• 'ZOOM' in on certain areas of a picture 

• Fill portions of a screen 

• Work on two different screens simultaneously 

«49.95 



*THEDRUMESISER Is a unique sound synthesizing 
tool that allows the creation of sounds such as a 
drum, piano, organ, harpsichord, or electronic syn- 
thesizers. The different types of sounds created are 
limited by the user's imagination and ambition. 
THE DRUMESISER comes with an Editor, which 
allows you to create your own sounds, a Player, 
which will allow you to play the different instru- 
ments, and the Memory Options, which make it pos- 
sible for you to playback any sounds that you have 
recorded. 

*49.95 
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XLDEMO 



16K Cassette or Disk 



by Jerry White 



Atari threw a couple of surprising capabilities into the 
new XL operating system. This self-documenting tutorial 
program will show you how to access some of these fea- 
tures from Atari BASIC. XLDEMO works on any Atari 
'XL-Series computer, including the old 1200XL. — 
Editor 



TURN OFF THE CURSOR 



ATftRI KL COMPUTER DEMO 
{C)1983 by Jerry White 



18 REM 

26 REM 

38 REM 

48 REM The following routines will 

50 REM deHonstrate sowe of the unique 

68 REM features of ATARI KL coHputers 

78 REM .^^,__..^—.,. .■>.,.— 

98 GRAPHICS 8:P0KE 82,2:P0KE 83,39 

188 HEM 

118 REM ■.1;*aM:ii:l^a<:MiIiHil-ai 

128 SETCOLOR 2, 9, 2 : 5ETC0L0R 4,1,18:5ET 

COLOR 1,9,15 

138 REM 

140 REM 

158 POKE 752,l:G05liB 918 

168 GOSUB 1180:LIST 18,98 

170 REM 

180 ? :? " Programs Hay be listed wi 

th fine" 

198 ? ;? "scrolling by first poking a 

non-zero" 

200 ? :? "into location 622 prior to o 

pening" 

210 ? ;? "the screen editor, then usin 

g the" 

228 ? :? "ATARI BASIC LIST COMWand." 

238 G05UB 1888 

240 REM 

250 HEM 

260 POKE 522,1 

278 REM MOTE THAT IM THIS PROGRAM WE 

288 REM DID NOT HAUE TO OPEM AN lOCB 

290 REM FOR THE SCREEN EDITOR SINCE 

300 REM THE BASIC GRAPHICS COMMAND 

310 REM DID IT FOR US. 

320 REM 

330 POKE 752,l:G0SUB 1190:LIST 10,438: 

GOSUB 1888 



SETUP FOR FIKE SCROLLIWG 



340 REM 
350 REM 
360 REM 
370 HEM 
380 HEM 
390 REM 
488 ? :? 

Of .8" 
410 ? :? 
peat ." 
420 ? :? 
location' 



POKE 622,8 TO RETURN TO 
NORMAL FASTER SCROLLING 



KEV REPEAT RATE 



" There is an initial delay 
"seconds before a key will re 
"The default value stored in 



430 ? :? "729 is 48. This value is th 

e nuBber" 

440 ? :? "of 60ths of a second to dela 

y before" 

458 ? :? "a key will repeat 143/60=. SJ 



To change the delay to 1/ 

To «ak 



KEY CLICK SOUND 



460 ? :? " 

3 of a" 

470 ? :? "second, POKE 729,20, 

e this" 

488 ? :? "delay one full second, poke 

729,60." 

490 GOSUB 1888 

580 ? :? " The value stored in locat 

ion 730" 

518 ? :? "is the delay between repeats 

. The" 

520 ? :? "default is 6 or 6/60ths of a 

second." 
530 ? :? "At this rate, a key will rep 
eat ten" 

540 ? :? "tiMes per second. To slow t 
he repeat" 

550 ? :? "rate down to five tines per 
second," 

560 ? :? "POKE 730,12. To double the 
speed," 

570 ? :? "POKE 730,3.":P0KE 729,20:POK 
E 730,3 

580 GOSUB 1080 
590 HEM 
600 REM 

610 ? :? " The click sound you hear 
whenever" 

620 ? :? "you type can also be disable 
d on KL" 

630 ? :? "coMputers. The default valu 
e stored" 

640 ? :? "in location 731 is 8 and ind 
icates" 

650 ? :? "that the click is enabled. 
To dis-" 

668 ? :? "the click, simply POKE in a 
255 . " 

670"POKE 731,255 
680 GOSUB 108O:PDKE 82,3 
690 ? :? " This program has just set 

the" 
708 ? 
/3 of 
710 ? 
eed of 
728 ? 
1 has" 
738 ? 
rd cli< 
740 ? 
750 ? 
his" 
760 ? 
SIC." 

770 POSITION 26,18:? "Jerry White" 
780 POKE 82,2:P0SITI0N 2,17:P0KE 752,0 



? " 

? "the delay before repeat to 1 

? "a second, and doubled the sp 

? "the repeat rate. Fine scrol 

? "been left on, and the keyboa 

k" 

? "has been disabled." 

? " I now return control of t 

? "computer to you and ATARI 8A 



ISSUE 16 



ANALOG COMPUTING 



PAGE 85 



HELP KEV 5UBR0UTIHE 
by Jerry Hhite 



796 ? :? "Basic-:? "IS"; :END 

800 REM 

810 REM 

820 REM 

830 POKE 732,0:REM CLEAR HELP KEY 

840 HELPrPEEKC7323 IPOSITIOH 7,23 

850 IF PEEKC532793=6 THEM STftRT^l: 

RN 

860 IF MOT HELP THEM 840 

870 IF HELP =17 THEN ? 

IMIOQQmai"; 

880 IF HELP = 81 THEM -J 



RETU 



VOU PRESSED TH 



YOU PRESSED 5 



YOU ^»RESSED 



890 IF HELP -145 THEM ? 

mssnss^"; 

900 RETURN 

910 ? :? " This ppograM dewonstrates 
how To" 

920 ? "check for the HELP key froM BftS 

IC on" 

930 ? "an flTORl XL coMputer." 

940 LIST 1000,1090 

950 ? :? " Press HELP, SHIFT/HELP, CTR 

L/HELP," 

960 ? " or Press ■af:1:>ie to exit." 

:5TflRT=0 

970 GOSUB 1230 

980 POKE 53279, 8:G0SUB 830 

990 IF START THEN RETURN 

1000 POSITION 15,21:? " ";:P0KE 

540,120 

1010 IF PEEKC5403 THEN 1010 

1020 POSITION 7,23:? " 



"EaiI]Di",-:G0T0 



WAIT FOR START KEY 
PRESS AND RELEASE. 



'PRESS ESESi TO 



1830 POSITION 16,21:? 

980 

1040 REM 

1050 REM 

1050 REM 

1070 REM 

1080 GOSUB 1230 

1090 POSITION 8,23:? 

CONTINUE"; 
1100 POKE 540,60 

1110 IF PEEKC53279Jr6 THEN 1180 
1120 IF PEEKC540) THEN 1110 
1130 POSITION 14,23:? " START "; 
1140 POKE 540,60 

1150 IF PEEK £53279 J =6 THEN 1180 
1160 IF PEEKt5403 THEN 1150 
1170 GOTO 1090 

1180 ? CHRSC125}:REM CLEAR SCREEN 
1190 5ETC0L0R 2, 9, 2 : SETCOLOR 4,1,10:SE 
TCOLOR 1,9,15:RETURN 
1200 REM 
1210 REM 
1220 REM 

1230 FOR JW=15 TO STEP 
0,2,JW:MEKT JM:RETURN 



SOFT BELL SOUND 



-0.5: SOUND 8, 



CHECKSUM DATA 

(See pp. 20-24.) 

10 DATA 247,289,255,703,327,690,263,84 

f£Fii?i'5ii' 2^6*^3, 369. 170, 5778 

160 DATA 338,95,615,54,904,410,251,814 

,88,487,780,124,989,882,963,7714 

310 DATA 224,84,962,90,560,937,99,786, 

105,204,643,974,237,721,994,7620 

460 DATA 893,526,34,836,508,531,365,88 

4,3,978,567,335,835,812,84,8191 

610 DATA 512,748,54,124,669,716,267,95 

,344,886,734,271,735,508,992,7655 

760 DATA 976,235,826,393,88,366,384,42 

i J 213,371, 396, 206, 82, 21, 597, 5580 

910 DATA 121,830,406,325,293,591,832,2 

70,813,976,189,575,718,279,141,7359 

1060 DATA 952,282,941,560,135,880,195, 

969,139,884,211,724,266,540,281,7959 

1210 DATA 892,283,818,1993 



Atari owners, 
are you backed up? 

At last, an inexpensive and easy way to mal<e back-up copies 
of your boot tape software. Even simple tape stretctiing from 
normal use can suddenly make a program no longer load. 
BOOT TAPE BACK-UP is a utility program ttiat will generate a 
copy of your autoboot macfiine language programs to 
provide you witti an identical copy to store away for safe 
keeping. 

Professionals make a back-up copy of everyttiing. At minimal 
cost, you can now protect your large investment in software 
the same way. BOOT TAPE BACK-UP is simple to use and will 
pay for itself many times over. Don't put your precious 
programs at risk! 



BOOT TAPE BACK-UP Only $1 5.95 



(makes lape-lo-Iape back-ups of all single slage and most multistage programs) 

•••Also available; BOOT TAPE BACK-UP PLUS^"' 
For disc owners (or future disc owners)-Same as above, but 
will ALSO transfer many of your cassette programs to disc as 
well. An even greater bargain! 



BOOT TAPE BACK-UP PLUS Only $1 9.95 



(as above, plus transfers all Bingl« stage tape programs to autoboot disc) 

To order; 

Send CHECK or MONEY ORDER (include $1.50 shipping) to; 



msbSOFTWARE 




P.O. Box 450 New York, NY 10024 



Requires: min. 32K .■ 410/1010 recorder -disc drive (optional) 

Note: Intended for personal arcfiival use only! 

Dealer inquiries invited. Atari Tfvt ot Atari, inc. 



^L^ctro 




ELECTRONIC WRITE PROTECT OPTION 

FOR YOUR ATARI 810 disk drive 



• Eliminate CUTTING NOTCHES to use tliE reverse side of disks 

• Eliminate rruisance tabs forTEMPORARY WRITE PROTECT 

• EIiniir)ate peeling GUMMY TABS to write on protected disks 
ALL dt tlie flip of your ELECTRO NOTCH switc)i 1! I 

$31,95 ppd USA 

NORMAL OPERATION. WRITE PROTECT, or WRITE PROTECT OVERRIDE 
Front panel switch with LED indicators 

PlUG-IN installation; no soldering NECESSARY 

Coi^ES fully assembled with complete installation instructions 



Street_ 
City 



Zip_ 



MASTERCARD t_ 

VISA H 

Exp. Date 

Signature 



Now AVAILABLE FOR AtAR I 1050 
SLO-SEC Zip-COPI ELectro-NOTCH 

send for details 
ma/are 

1704 Princess St. 



Wilmington, NC 



28405 



M\w two wefks ^or personsi checks 
Atari IS a traoeraark of Alan, Inc. 



HIGH QUALITY 
PRODUCTS AT 
AFFORDABLE PRICES 



As Easy As Falling Off . . . 

niOG COMPUTING 

Dealer and distributor Inquiries invited. 



ADVANCED SOFTWARE 
DESIGNS FOR HOME 
COMPUTERS 



We at Alog Computing wish to thank you for the response you have given us 
on ourfirst product the Alog Pagewriter. (SeeConnments) Nowwe have two 
other utility programs available for Atari Home Computer users. We have 
tried to make them simple and fun to use. We hope you enjoy them. 
Note: Although these programs were developed for the Atari 400/800 models, 
we have tested them on the 1200 and have no reason to believethey will not 
run on all Atari machines. 

THE ALOG PAGEWRITER 

Turns your ATARI computer and 80 column printer into a very easy to use electronic 
typewriter. Because the entire page layout is displayed wliile the user is typing and 
editing, the ALOG PAGEWRITER is ideal for simple word processing tasks such as 
letters, notes, memos, or the kid's book reports and term papers. The average 
learning time is about five minutes. 

KEY FEATURES 

• Uses standard Atari editing keys (e.g. INSERT, DELETE, TAB, etc.) • A HELP screen 
with command summary • Visible and fully adjustable margins • FILL command for 
right justification • Automatic return option (with word moving) • Line 'Split' and 
'Splice' commands • Store 10 pages with no disk swapping • Not copy protected 

REQUIRED EQUIPMENT 

• ATARI 400 or 800 Computer • ATARI 850 I nterface Box • At least 32K of RAM • One 
disk drive • 80 column printer 

THE ALOG DISPLAYMAKER 

A versatile color graphics program in Forth that you can use for making graphs, charts, 
displays or just have fun drawing pictures. 

KEY FEATURES 
Graphics Mode: • Circles, Ellipses, Rectangles • "Rubber Band" lines • Semi- 
automatic fill • Color pallette for easy variation • Zoom magnification 
Text Mode:* Three sizes of characters • Three colors • Regular ATARI characterset 

• Special character set • "Built-in" character editor (gives unlimited number of 
characters) 

Disk Storage of 8 displays 
"Slide Show" display features 
Graphics dump to most dot graphics printers 
(2 sizes) — Epson", Gemini 10, Prowriter and others. 

"requires Graphtrax option 

REQUIRED EQUIPMENT 

• ATARI 400 or 800 Computer • At least 48K of RAM • One disk drive 'Optional (joy- 
stick and graphics printer) 

THE ALOG MAILLIST 

A simple, easy to use data base program specifically designed for making and keeping 
mailing lists and printing out mailing labels. 

KEY FEATURES 

• Multilevel fast search and sort • Complete disk utility package • Split & merge files 

• Supports 1 or 2 disk drives* Prints continuous form labels 1 to2 inches high • Uses 
standard ATARI Editing Keys • Holds 130 records in memory and 500 records per 
disk • Make your own backup copies 

REQUIRED EQUIPMENT 

• ATARI 400/800 Computer • At least 32K RAM (48K recommended) • One disk drive 
(works fine with two) of any manufacture that works with ATARI DOS 2. OS • ATARI 
BASIC Cartridge 'ATARI DOS 2.0S* An ATARI 850 Interface Module 'A printer with 
adjustable tractor feed 



UNSOLICITED COMMENTS 

from users of the Alog Pagewriter (used 
with written permission) 

"Great product. I wrote two pages the first time 
I sat down with it. I wish I had it a couple of 
years ago. " 

James Tanaka, Monterey Park, CA 

"Refreshingly simple but adequate word 

processor at an affordable price — good work. " 

Jay Carccarese, San Jose, CA 

"Super, lama Vatforth programmer and I love 
it. " 

P.R.S., San Antonio, Texas 

"Good, simple text processorfor letters — great 
to be able to back up master disk. " 

Larry Cox, Floyds Knobs, IN 

"Excellent, it makes letter writing a dream. " 
M.H., Oaktown, VA 

"Great price and easily learned. " 

Noel Brooks, Great Falls, MT 

"As 1 have used PAGEWRITER I have grown 
to love it. After using WORDSTAR and 
LETTER PERFECT a truly user kind word 
processor is a wonderful experience. " 

"One feature which I feel sets it apart from all 
others is the capability to visualize the page. 
This feature is indispensable when designing 
tables for a report. " 

"Thanks again for an excellent piece of 
software. " 

John C. Goodman, Marbiehead, PA 

"Excellent for one or two pages of text. It 's 
simple. " 

Richard E. Lane, Vandenberg AFB, CA 

"Very Easy to use. It's very useful for letters" 
Florian C. Pulver, Riverside, California 

"/ have found your product to be quite easy to 
operate and understand, both in the written 
instructions and manual operation. I have the 
ATARIWRITER and BANK STREET 
WRITER and I find myself using your product 
more than either one of these two products. " 

"/ have also found that for the price of your 
product versus that of the other companies that 
your product has paid for itself twice over. " 
Edward Locke, Mentor, OH 

"Verv easy to use and perfect for mv needs." 
J.B. Karluk, Throop, PA 



All programs are only $39.95 each. To order direct send check or money order to Alog Computing, 
1040 Veronica Springs Road, Santa Barbara, CA 93105. We pay shipping. For information, credit 
card orders or C.O.D., call our distributor: COMSTAR (805) 964-4660, outside Calif. (800) 558-8803. 



(ATARI Is a trademark of Atari, Inc.) 
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16K Cassette or Disk 



by Dennis Fox 



Shooting Stars is an assembly-language game that 
strands you on an asteroid with almost zero gravity. 
Red-hot particles of space debris are bouncing all 
around you. Death is virtually certain in this hostile 
environment. The question is, how long can you 
survive? 

Your objective is to avoid contact with the "shoot- 
ing stars" for as long as possible. You are represented 
by a little astronaut figure, which can be moved 
around the screen with a joystick plugged into port 
#1. 

You begin the game with five lives. The number of 
lives remaining is displayed in the top part of the 
screen, along with a clock which shows how long you 
have survived. An extra life is awarded at the 3- 
minute mark, and another at the 5-minute mark. A 
bell will signal the earning of an extra life. The longer 
you remain alive, the faster the flying particles will 
move. 

I hope you enjoy playing Shooting Stars. See if 
you can beat my high score of five minutes and 
fourteen seconds. 



Typing the program. 

Before typing anything into your computer, take a 
look at the program listings accompanying this 
article. 

Listing 1 is the main data and data checking 
routine. This listing is used to create both the 
cassette and disk versions of Shooting Stars. 
The DATA statements are listed in hexadecimal 
(base 16) so that the program will fit in a 16K 
cassette-based system. This makes typing a little 
more difficult, but it's a necessary evil. 

Listing 2 must be added to Listing 1 if you 
are using a 410 or 1010 cassette drive. 

Listing 3 must be added to Listing 1 if you 
are using a disk drive. 

Listing 4 is the assembly-language source 
code for Shooting Stars, created with the Atari 
Macro Assembler. You do not have to type in 
this listing to play the game! It's provided for 
those readers who want to study how the pro- 
gram works. 
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Follow the instructions below to make either a 
cassette or disk version of Shooting Stars. 
Cassette instructions. 

1. Type Listing linto your Atari and verify 
your typing with C:CHECK (see page 20). 

2. After Listing 1 has been entered into your 
computer, type in Listing 2. The program lines 
will automatically merge with Listing 1 . Make 
sure these lines were typed exactly as shown. It's 
a good idea to CSAVE the entire program at this 
point. 

3. Type RUN and press RETURN. The pro- 
gram will begin checking the DATA lines, print- 
ing the line numbers as it goes. You will be 
alerted if the program finds any problems. Fix 
any incorrect lines and re-RUN the program as 
necessary until all errors are eliminated. 

4. When all the DATA is correct, the compu- 
ter will "beep" twice and you will be asked to 
READY CASSETTE AND PRESS RETURN. 
Insert a blank tape in your recorder, press the 
RECORD and PLAY keys simultaneously and 
hit RETURN. The message WRITING FILE 
will appear and the computer will create a boot- 
tape version of Shooting Stars, printing each 
DATA line as it goes. When the READY 
prompt appears, you're ready to load and play 
the game. Make sure you have CSAVEd the 
BASIC program on a separate tape before 
continuing. 

5 . From this point on, when you want to play 
Shooting Stars, do the following: Rewind the 
boot tape created by the BASIC program to the 
beginning. Turn your Atari off and remove all 
cartridges. Press the PLAY key on your recorder 
and turn your Atari back on while holding down 
the START key. The computer will "beep" 
once. Press RETURN and Shooting Stars will 
load and run automatically. 

Disk instructions. 
J . Type Listing 1 into your Atari and verify 
your typing with D:CHECK2 (see page 16.) 

2. After Listing 1 is correctly entered, care- 
fully type in Listing 3. The program lines will 
merge with those in Listing 1 . It's a good idea to 
SAVE the entire BASIC program at this point. 

3. Type RUN and press RETURN. The pro- 
gram will begin verifying each DATA line, print- 
ing the line numbers as it goes. You will be 
alerted if the program finds any problems. Fix 
incorrect lines and re-RUN the program as 
necessary until all errors are eliminated. 

4. When all DATA lines are correct, you will 
be prompted to INSERT DISK WITH DOS, 
PRESS RETURN. Insert a disk containing Atari 
DOS 2. OS into drive #1 and press RETURN. 
The message WRITING FILE will appear, and 
the computer will create an AUTORUN.SYS 



file on the disk, printing each line number as it 
proceeds. When the READY prompt appears, 
you're ready to play the game. Make sure the 
BASIC program has been SAVEd under a 
separate filename before continuing. 

5. To play Shooting Stars, insert the disk 
with the AUTORUN.SYS file into drive #1. 
Turn off your Atari, remove all cartridges and 
turn the computer back on. The game will load 
and run automatically. D 

Listing 1. 

1 REM *** SHOOTING 5TflR5 *** 

10 DATA 0,1,2,3,4,5,6,7,8,9,0,8,0,0,0, 

0,0,10,11,12,13,14,15 

20 DIH DAT5C91],HEKC22J :F0R X=0 TO 22: 

READ N:HEXCK)=N:NEKT X:LINE=:990 :RE5T0R 

E 1000: TRAP 60:? "CHECKING DATA'- 

25 LIHE=:LINE+10:? "LINE :"; LINE :READ DA 

TS:IF LENCDAT$}<>90 THEN 110 

28 DATLIN=PEEKC183]1^PEEK(184}«256:IF D 

ATLINOLINE THEN ? "LINE ";LINE;" MI55 

ING!":END 

30 FOR X=l TO 89 STEP 2 :D1=ASCCDATSCK, 

X3 ) -48 : D2=ASC (DATS tX+1 , X+1 J ) -48 : BYTE=H 

EX(D1)«16+HEXCD2} 

35 IF PASS=2 THEN PUT ttl, BYTE : NEXT X:R 

EAD CHKSUM:G0T0 25 

40 TOTAL=TOTAL+BYTE:IF T0TAL>999 THEN 

T0TAL=T0TAL-1000 

45 NEXT X:READ CHKSUHZIF TOTAL=CHKSUH 

THEN 25 

50 GOTO 110 

60 IF PEEK (195) <>6 THEN 110 

100 ? "MUTING FILE":PASS=2:LINE=990:R 

ESTORE 100e:TRAP 6e:G0T0 25 

110 ? "BAD DATA: LINE ";LINE:END 

1000 DATA A209A9FF9D30259DDE2eCA10F7A2 

29A92585D6A93A8SD5A009B9122591D588ieF8 

A5D518690A85D5A5D6690085,695 

1010 DATA D6CA10E6A9CA8D38e2A9248D3102 

A98085CD85CB85CF85D185D3A93385CEA93485 

CCA93585D0A93685D2A93785,788 

1020 DATA D4A9108D42068D43e68DA006A900 

8DAiee8DA2068DA3068D6006A9058D5006A9B4 

8D0006AD0AD24A18e9378D01,948 

1030 DATA 06A20eADeAD24A4A69329D10eeE8 

E006DOFlA2008AeAeAOAeAOAe9379D2006E8EO 

0eD0F0A20eAD0AD229e39D30, 321 

1040 DATA e6E8E006D0F3A9308D07D4A93E8D 

2F02A9838D1DD0A900A891CB91CD91CF91D191 

D3C8D0F3A9008D45068D1ED0, 300 

1050 DATA A9468DC0e2A90F8DC1028DC2028D 

C302A9968DC5e2A9368DC602A9F88DC402A903 

8D4106A907A224A080205CE4,446 

1060 DATA AD1F00C906D0034C6824AD780229 

01DOe3CE0106AD780229e8D003EE8006AD7802 

2902Dee3EE0106AD78022904 , 186 

1070 DATA D003CE00e6AD0006C9C8D0e3CE00 

06AD0006C932D003EE8006AD0106C934D003EE 

eie6ADeio6C9C8Deo3CEeie6,39i 

1080 DATA AD00e68D00D0A2e0AC0106BDFF24 

91CBE8C8E013D0F5A2eeBD30O6De06FE10O6DE 

2006BD30e6C901D006FE1006 , 306 

1090 DATA FE2006BD3e06C902D086DE1806FE 

2006BD3006C903D006DE100e0E200eE8E006D0 

C9A2e0BD1006C9CAD012BD30,69 

1100 DATA 06D0e8A9039D3006189005A9029D 

3e06BD1006C930D014BD3006C9e2F008A9009D 

3006189005A9019D3006BD20, 766 

1110 DATA 06C934D012BD3006D008A9019D30 

0618900SA9029D3006BD2006C9D5D014BD3006 

C901D008A90e9D30061890e5, 729 

1120 DATA A9e39D3006E8Eee6D093AD10068D 

01DeAD11068D02DeAD12e68D03D0AD130e8D05 

D0AD14068D0eD0AD15068D07,24 

1130 DATA D0A9eeAC2ee691CFA9ieC891CFC8 

91CFA900C891CFA9eeAC210691DlA9ieC891Dl 

C891D1A900C891D1A900AC22,98 
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1148 DATA e691D3A9ieC891D3C891D3A9eeC8 

91D3A5EFAC23e631CD91CDA9ieC811CD91CDA9 

ieC811CD91CDA9EFC831CD91,628 

1158 DATA CDA9FBAC24ee31CD91CDA9e4C811 

CD91CDA984C811CD91CDA9FBC831CD91C0A9BF 

AC25e631CD91CDA948C811CD,19 

1168 DATA 91CDA948C811CD91CDA9BFC831CD 

91CDEE4eeeAD48e6C918D83AA9888D488eCE41 

e6AD4186De85A9838D418eA9,239 

1178 DATA C88D83D2AD4186C983D8e8A9788D 

82D2189814AD4186C9820888A9648De2D2189e 

85A9558De2D2AD42868D2525, 812 

1188 DATA AD438e8D2e25ADA8868D2325ADA8 

e6C913D815ADA18eD818EE5886EEA186A9A48D 

81D2A9818DA286ADA886C915, 632 

1198 DATA D817ADA186C9eiD818EE5886EEAl 

86A9A48D81D2A9ei8DA286AD45eeF8834C1724 

A9584E42868838ED4286282E,e 

1288 DATA 428eA2eeEDA886E8E883DeF8AAA8 

88C8D8FDCADeF8ADA286C981D817A9328D88D2 

EEA386ADA386C925De88EEA2, 154 

1218 DATA 86A9888DA386ADA286C982D817A9 

288D68D2EEA386ADA3e6C925D888EEA286A988 

8DA386ADA28eC983D817A92e, 39 

1228 DATA 8D88D2EEA386ADA386C925D888EE 

A286A9888DA386ADA28eC984De8DA9888D88D2 

8DeiD2A9888DA386A98AA288,65 

1238 DATA 9D2925E8EC58e6D8F74C8E21CE58 

86A9A88D81D28D83D2A9328De8D2481869648D 

82D28DCe8268A888A288E8D8,192 

1248 DATA FDC8Cei9D8F618e9eiC964D8DFA9 

688D88D28D81D28D82D28De3D2A9468DC882A9 

8eAC5886992925A05886F883,491 

1258 DATA 4C792eA9e88D5886AD8482F887AD 

lFD8C98eD8F4A988854D4C5B28AD89D88D8AD8 

8D8BD88DeDD88D8ED88D8FD8,877 

1268 DATA 29818D45eeEEe886ADe886C93CDe 

26A9888D6886EE4386AD438eC91AD817A9188D 

43e6EE4286AD428eC9ieD888, 77 

1278 DATA EEA88eA9188D42864C62E4787878 

47102589898989898989898989898989898989 

898969898989898909098989, 5 

1288 DATA 8989898989898989898989898989 

898941CA24887C546C7C447C18ieFEBABABA38 

382828EEe088888888888e88,48e 

1298 DATA 888881888874696D6588881A8880 

88888880888888888888888888888888888880 

888888888888888008888888, 944 



CHECKSUM DATA 
(see pp. 20-24) 

1 DATA 881,955.686,427,745,192,617,545 
,276,445,496,549,158,973,995,8932 
1828 DATA 768,669,955,856,671,789,758, 
27,551,477,218,152,143,547,83,7568 
1178 DATA 848,823,674,934,969,941,836, 
724,876,758,282,441,487,9585 



Listing 2. 

2 HEM *** CASSETTE VERSION JHHf 

65 IF PA55r2 THEM FOR K=l TO 18 : PUT ttl 

,e:MEXT X: CLOSE ttl: END 

70 ? ■■READY CASSETTE AND PRESS RETURN'^ 

; :OPEN ttl, 8, 128, "C:": RESTORE 2ee:F0R K 

=1 TO 40:READ N:PUT ttl,N:NEXT X 

200 DATA 0,11,216,31,255,31,169,0,141, 

47,2,169,60,141,2,211,169,0,141,231,2, 

133,14,169,56,141,232,2 

210 DATA 133,15,169,0,133,10,169,32,13 

3,11,24,96 



Listing 3. 

2 REN *** DISK UERSION *** 

65 IF PAS5=2 THEN PUT ttl, 224: PUT ttl, 2: 

PUT ttl,225:PUT ttl,2:PUT ttl,e:PUT ttl, 32 

: CLOSE ttl: END 

70 ? "INSERT DISK WITH DOS, PRESS RETU 

RN";:DIH IN$C1):INPUT IN$:OPEN ttl, 8,0, 

"D:AUTORUN.SYS" 

90 PUT ttl, 255: PUT ttl, 255: PUT ttl, 8: PUT 

ttl,32:PUT ttl,69:PUT ttl, 37 



Listing 4. 



; Shooting stars by Dennis Fox 



; Page zero usage 


PBASE = 


$CB 


HBASE = 


$C0 


WSE2 = 


*CF 


BASE3 = 


m 


BASE4 = 


$03 


AODR = 


$D5 


; Page 6 


usage 


X 


$m 


Y 


im 


XM 


%6l% 


YM 


«28 


DM 


*63i 


Tl 


$648 


T2 


i64i 


Til = 


$642 


TI2 = 


$643 


HIT = 


$645 


LIFE = 


$656 


TI3 = 


$666 


TI4 = 


$6Ae 


ELF = 


$6A1 


SFl = 


$6A2 


STIHE = 


$6A3 


; Opera ti 


ng systen 


ATTRAC = 


$4D 


PCOLRB = 


$2C8 


PCOLRl = 


$2C1 


PC0LR2 = 


$2C2 


PC0LR3 = 


$2C3 


C0L0R9 = 


$2C4 


COLORl = 


$2C5 


C0L0R2 = 


$2C6 


COL0R3 = 


$2C7 


C0L0R4 = 


$2C8 


SDMCTL = 


$22F 


SDLSTL = 


$236 


SDLSTH = 


$231 


ST1CK9 = 


$278 


CTRI68 = 


$284 


HITaR = 


$08 IE 


HP0SP8 = 


$0868 


HPOSPl = 


$0861 


HP0SP2 = 


$0882 


HP0SP3 = 


$0683 


HP0SM8 = 


$0864 


HPOSHl = 


$0885 


HP0SM2 = 


$0866 


HP0SM3 = 


$0887 



jPOINTERSTO... 
;MISSILES, 
;PWYER1 , 
5PWYER2, 
;PLAYER3 
;2-BYTE POINTER 



jAnHACT MODE POINTER 
;PWYER COLORS 



;PLAYFIEL0 COLORS 



;Dt« CONTROL 
;OISP LIST POINTER 

jJOYSTICK 
; STICK BUnON 
;COLLISION CLEAR 
;P/M HOR. POSITIONS 



HI PL = 
M2PL = 
M3PL = 
PI PL = 
P2PL = 
P3PL = 
GRACTL = 
CONSffl.= 
AUDFl = 
MIDCl = 
AUDF2 = 
AU0C2 = 
RANDaH = 
PMBASE = 
SETVey = 
X1TVBV = 



$0889 
$D88A 

miB 

SDSSD 
$0e8E 
$D8eF 

idm 

$D81F 
$0288 
$0281 
$0282 
$0283 
$028A 
$0487 
$E45C 
$E462 



SCOLLISIQN REGISTERS 



;6I»PHIC CONTROL 
;CQNS0LE BUHONS 

;Aifiio cmms 



:P/M ST*ST ADffl? 

:MERT BLANK SET VECTOR 

jVERT KiWK EXIT 



; set up screen and display list 
ORG $2888 



SSTAR LDX 
LOA 

SEHB STA 
STA 
DEX 
BPL 
LOX 
LOA 
STA 
LDA 
STA 

SETHI D LOY 

MIOLP LDA 
STA 
DEY 
BPL 
LDA 
CLC 
ADC 
STA 
LDA 
ADC 
STA 
OEX 
BPL 
LDA 
STA 
LDA 
STA 
LDA 
STA 
STA 
STA 
STA 
STA 
LDA 



19 
WFF 
SCi9«),X 
SCnNCjX 

SEHB 

141 

«SCRrffl/25<S 

ADDRtl 

«SCRr^255 

ADDR 

19 

MIDBYT,Y 

(AODR),Y 

MIDLP 
AODR 

«18 

ADOR 

ADDR+1 

«e 

ADDRH 



STTW... 
AM) BOnOH. 



■.POM TO... 
jHIDDLE OF SCISEN 



iCm HIOOLE BYTES. 
;T0 SCREB^ RAM 



^KW ADO 18 BYTES. 
TO POINT TO... 
^£XT LINE 



;^THER LINE? 



SETMID 


;YES! 


«DL1ST&255 


POINT TO 


SOLSTL 


;DISPLAY 


«OLI ST/256 


;LIST 


SDLSTH 




«$88 


;SET LOW BYTES... 


NBASE 


•OF P/M POINTERS 


PBASE 




WSE2 




B^E3 




BASE4 




«$33 


;NOU SET HI BYTES 





STA MBASE+1 


;T0 POINT TO 




LDA #$34 


5U«?I0US P/H AREAS 




STA PBASE+1 






LDA #$35 






STA B«E2+1 






LDA #$36 






STA fiASE3+l 






LDA #$37 






STA &^E4tl 




; Set 


pla/ers start 


ng position 


START2 LDA HU 


; INITIALIZE TIMERS 




STA Til 






STA TI2 






STA TI4 






LDA #$88 






STA ELF 






STA SFl 






STASTIME 






STA TI3 






LDA #5 


; START U/5 LIVES 




STA LIFE 




START 


LDA #188 


;SET UP... 




STAX 


jASTRONAUTX 




LDA RANDON 


;WU GET... 




LSRA 


iRANDQM « 




CLC 


;<WD SET UP 




A0C«55 


;ASTRfl^«UT Y 




STAY 




; Set 


nissles horizontal positicm 




LDX«$88 


;GET RANOflM... 


LI 


LDARANDOH 


;l«^I2aNTAL 




LSRA 


jPOSITION, 
mKE SURE IT'S 




LSRA 




ADC #58 


;0N SCREm, 




STA XM,X 


jSTORE IT 




INX 


jNEXT MISSILE 




cr%u 


;ALL DONE? 




BNE LI 


NOT YET! 


; Set 


nissles vertical position 




LDX #$88 


;START U/MISSILE 8 


L2 


TXA 


;6ET MISSILE « 




ASLA 


jfflATlPLY... 




ASLA 


;MISSILE... 




ASLA 


(■NUIBER... 




ASLA 


;BY 32, 

JWKE SURE IT'S... 




ASLA 




ADC #55 


;QN SCREm, 




STA YM,X 


;AND STORE IT! 




INX 


;NEXT MISSILE 




CPX #6 


;ALL DONE? 




BNE L2 


;NOT YET! 



; Set isissiles' starting directions 



L3 



LDX #$88 
LDA OMDOH 
AND #$83 
STA DM,X 
INX 

CPX U 
BNE L3 



SB mmi... 

DIRECTION 
Mi STOS 
reXT MISSILE 
ALL Dflt«? 
MJT YET! 



> 

O 
m 

CD 

o 



; Set up player nissile graphics 
; Single line resolutioi) 



Al 



LDA #$38 
STA PMBASE 
LDA #62 
STA SDMCTL 
LDA #3 
STA GRACTL 
LDA #$86 
TAY 

STA <PBASE),Y 
STA (MEASE) ,Y 
STA (aAS2),Y 
STA (BASES) ,Y 
STA (aA^4),Y 
INY 

BNE Al 
LDA #$88 
STA HIT 
STA HITCLR 
LDA #$46 
STA PC0LR8 
LDA #15 
STA PCOLRl 
STA PC0LR2 
STA PC0LR3 
LDA #156 
STA COLORl 
LDA #54 
STA C0L0R2 
LDA #$F8 
STA COLORS 
LDA #3 
STAT2 
LDA #$87 
LDX «fflI/256 
LDY #UBIt255 
JSR SETVBV 



; The gane begins here 
BACK 



LDA CONSd 
CMP #6 
BNE J0Y2 
JMP KATH 



jPOINT TO P/M mEA 

;TURN ON SCREEN 

;SET P/M GRAPHICS 

jNOi CLEAR OUT... 
jALL MISSILES 
;AM) PLAYERS 



;N0 COLLISION! 
;SET UP COLORS 



> 

> 
r— 
O 
O 

o 
o 

T) 

c 

H 

o 



NOW Sim OP... 

am VERTICAL HiM. 
IMTERRIFT! 



;CI€CK CONSOLE KEYS 

;ST<WT PRESSED? 

;NOPE! 

;G0 TO RESTART! 



CO 

c 
m 

c» 



; Read Joystick 



J0Y2 



01 



02 



03 



04 



05 



06 



LDA 

m> 

SNE 
DEC 
LM 
^D 
BNE 
INC 
IDA 

mQ 

BNE 
INC 
LDA 
^D 
BNE 
DEC 
LDA 
CMP 
BNE 
DEC 
LDA 
CHP 



STICK8 

ti 

01 

Y 

STICK8 

#$88 

02 

X 

STICK8 

#$82 

03 

Y 

STICKB 

#$84 

04 

X 

X 

#288 

05 

X 

X 



iGET ASTRONAUT. 
;DIRECTIQN 

;UP 



jRIGHT 



07 



INCX 
LDA Y 
CMP #52 
BNE 07 
INC Y 
LDA Y 
CMP #288 
WE 08 
DECY 



;DOUN 



LER 

SET ASTRO. X 
TOO FAR RIGHT? 
IT'S OK 
TM FAR! 

TM fm LEFT? 

OK. 

TO) FAR! 

1^ ASTRO. Y 

Tffi) FAR UP? 

OK. 

TOO FAR! 

:T(H F«? DOUN? 
:0K. 



D2 



D3 



001 



INC XM,X 
INC YM,X 
LDA DH,X 
CMP #2 
BNE D3 
DEC XM,X 
INC YM.X 
LDA DM,X 
CMP #3 
BNE DOl 
DEC XM,X 
DEC YM.X 
INX 

CPX«<5 
BNE m 



jRIGHT... 
;AM) DOUN! 



;LEFT... 

;AM} DOUN! 



;LER... 
:AW UP! 
;f£XT MISSILE 
;ALL D»£? 
;N0, DO OTHERS! 



DY2 
C4 



CMP#1 
BNE DY2 
LDA #$88 
STA OM.X 
CLC 
BCC C4 
LDA 13 
STA OM.X 
INX 
CPX U 

BNE ce 



CO 

c 
m 



jreXT MISSILE 
;ALL DONE? 
;N0, DO OTHERS! 



; Plot nissiles on playfield 



Check if nissile has hit Hall 



C8 



DIl 
CI 



;im FAR! 



; Put astronaut on playfield 



Bl 



LDAX 

STA HP0SP8 

LDX«$88 

LDY Y 

LDA AlttUT.X 

STA (P^),Y 

INX 

INY 

CPX #19 

BNEBl 



60 AHEAD ^D SET. 
m. POSITION 
NOW COPY THE... 
ASTROWUfT IMAGE.. 
INTO PWYER 1 



DI2 

C2 



; Move missiles 

LDX #$88 
D8 LDA DM.X 
BNEDl 
INC XM,X 
DEC YM,X 
Dl LDA DM,X 
CMP#1 
BNED2 



;6ET MISSILE DIR. 

jRIGHT... 
;M)UP 



LI 3 
03 



LDX #$88 
LDA)W,X 
CMP #282 
BNE CI 
LDA DM.X 
BNE Dli 
LDA #3 
STA DM,X 
CLC 
BCC CI 
LDA 12 
STA DM,X 
LDAMI.X 
CMP #48 
BNE C2 
LDA DM,X 
CMP #2 
BEQ DI2 
LDA #8 
STA OH,X 
CLC 
BCC C2 
LDAIl 
STA DM.X 
LDA YM.X 
CMP #52 
WE C3 
LDA DM.X 
BNE 013 
LDA #1 
STA OM,X 
CLC 
BCCC3 
LDA #2 
STA m.x 
LDA YM.X 
CMP #213 
BNE C4 
LDA DM,X 



;^X POS. 
:T00 FAR RIGHT? 
jIT'S OK. 
jIT'S TOO FAR, 
;«E MUST REVERSE 
;THE DIRECTION! 



jffTX POS. 

:TM FAR LER? 

;0K. 

;REVERSE DIRECTION! 



;^ Y POS. 
;TM fm UP? 
;0K. 
jRB^RSE! 



KTY POS. 
TM Fm DOUN? 
OK. 
RRERSE! 



LDAXM 

STA HPOSPl 

LDAXH+1 

STA tF0SP2 

LDAXM+2 

STA 1P0SP3 

LDAXM+3 

STA IffOail 

LDAXM+4 

STA ttf'0SM2 

LDAXM+5 

STA tffOSM3 

LDA #$88 

LDY YM 

STA (BASE2),Y 

LDA #$16 

INY 

STA (BA^),Y 

INY 

STA (BAa2),Y 

LDA #$88 

INY 

STA (BASE2),Y 

LDA #$88 

LDY YM+1 

STA (aA^3),Y 

LDA #$18 

INY 

STA (BASE3),Y 

INY 

STA (BASES), Y 

LDA #$88 

INY 

STA (BASES) ,Y 

LDA #$88 

LDY YM+2 

STA (aASE4),Y 

LDA #$18 

INY 

STA (BA^4),Y 

IMY 

STA (BASE4),Y 

LDA #$88 



;SET ALL MISSILES. 
;H£KIZONTAL... 
; POSITIONS! 



iPLOT 1ST MISSILE 
}IN PLAYER 1 



> 

z 
> 

o 
o 

o 
o 

c 

H 
Z 
Q 



jPLOT 2ND MISSILE 
;IN PLAYER 2 



jPLOT 3R0 MISSILE 
■IN PLAYER 3 



5 
Q 
m 
CO 



(BASE4),Y 

»EF 

YM+3 

(lfflASE),Y 

(fffiAa),Y 

i$18 

(ffflASE),Y 
<HBASE),Y 

m9 

(r»«E),Y 
(HflASE),Y 
«EF 

(l€ASE),Y 
(MBASE),Y 



INY 
STA 
LDA 
LDY 

STA 
LDA 
INY 
ORA 
STA 
LDA 
INY 
ORA 
STA 
LDA 
INY 

STA 

LDA«$FB 

LDY YM+4 

aS) (tffiASE),Y 

STA 

LDA 

INY 

ORA 

STA 

LDA 

INY 

ORA 

STA 

LDA 

INY 

ftS) 

STA 

LDA 

LDY 

fm 

STA 
LDA 
INY 
01^ 
STA 
LDA 
INY 



STA 
LDA 
INY 

m 

STA 



(ffflASE),Y 

<fffiASE),Y 
(i«ASE),Y 
«$84 

<ffflASE),Y 
(l«AS£),Y 

(l«ASE),Y 
(HBASE),Y 

YM+5 

(t1fiASE),Y 
(ffflASE),Y 
«$48 

(ffflASE),Y 
<rfflASE),Y 
M48 

(f®«E),Y 
(JfflASE),Y 
#$BF 



<M8ASE),Y 
(ffflASE),Y 



; Create sound 

INCTl 
LDATl 
CMP«18 
BNE sot 
LDA «$88 



iPLOT 4TH MISSILE 
;IN MISSILE 1 



S02 



:PLOT 5TH MISILE 
;IN MISSILE 2 



S2 



S3 
SOI 



jPLOT 6TH MISSILE 
;IN MISSILE 3 



OELC 



STATl 




DECT2 




LDAT2 




GNES02 




LDA«3 




STAT2 




LDA»C8 


SET SOU® CONTROL 


STAAU)C2 




LDAT2 


GET SOUND NUMBER 


CMP «3 


aSJND 3? 


BNES2 


NO! 


LDA «128 


Ski 3RD... 


STA AUDF2 


SON) FREQUBCY 


CLC 




BCCSOl 


60 SHOW TIME 


LDAT2 




CMP #2 


SOUND 2? 


eNES3 


NO! 


LDA «188 


SET2N0... 


STA AUDF2 


SOtN) FREQUeCY 


CLC 




BCCSOl 


fiND SHOW TIf€ 


LDA «d5 


SET 1ST 


STA fmfl 


SOUND FREQUBCY 


LDA Til 


Smi DIGIT 1... 


STA SCREB^+9 


OF SECONDS 


LDAT12 


SHOW DIGIT 2... 


STA SCREEN+18 


OF SECONDS 


LDATI4 


SHOW MINUTES! 


STA SCREEN+7 




[ for extra life 




LDAT14 


■GET MINUTES 


mp #19 


3 MINUTES? 


BNE OELC 


NO! 


LDA ELF 


DONE EXTRA LIFE YET? 


BNE OELC 


;YES, NO MORE! 


INC LIFE 


ANOTHER LIFE 


INCaF 


|SET EXTRA LIFE FLAG 


LDA««A4 


,SET UP FOR... 


STA AUDCl 


EXTIM LIFE SOUND 


LDA«$81 




STASFl 




LDATI4 


;6ET MIWTES 


CMP #21 


5 MINUTES? 


BNEOEL 


NO! 


LDAaF 


GOT 2ND EXTRA? 


CMP#1 




BNE %i 


NO MORE! 


INC LIFE 


lANOTHER LIFE! 


INC ELF 


|INC EXTRA LIFE FLAG 


LDA »A4 


;SET UP FOR... 


STA AUDCl 


EXTRA LIFE SOND 


LDAM81 




STASFl 





Check for ending sequence 



OEL 



vmo 



SMOR 



TDl 
TD2 



LDA HIT 
BEQie^D 
JMPEND 
LDA 188 
LSR Til 
PVP 
SEC 

SBC Til 
PLP 

ROL Til 
LDX «$88 
SBCTI4 
INX 

CPX 113 
BNE SMOR 
TAX 

LDY *$88 
INY 

BNETD2 
DEX 
BNE TDl 



SC2 



SC3 



LDA 
Off 
BNE 
LDA 
STA 
INC 
LDA 
CMP 
BNE 
INC 
LDA 
STA 
LDA 
CMP 
BNE 
LDA 
STA 
INC 
LDA 
CMP 
BNE 
INC 
LDA 
STA 
LDA 
CMP 



SFl 

«1 

SC2 

STIME 

STIME 

«25 

SC2 

SFl 

«$88 

STIf€ 

SFl 

«2 

SC3 

148 

AWFl 

STIffi 

STIf€ 

«$2S 

SC3 

SFl 

M88 

STIffi 

SFl 

«3 



[DA 
STA 
INC 
LDA 



AWFl 
STIf€ 

STirc 



ASTRO HIT DEBRIS? 

m, HE'S OK. 

IW-OH! 

THIS SECTION 

CRKTES A TIhE 

DELAY USING 

Tl€ TIME yARIABLES 

Til m) TI4 



Tl 
> 

o 
m 

CD 



jTHIS IS A 
;TII€ DELAY 
ilMTINE! 



Play extra life sound 



;0 Ba^JS SOUND Fli^ 

jFIRST FI«Q? 

:N0! 

;SET 1ST BflNlB FREQ. 

;irC SOJN) TIMER 

;EM) OF %UND? 
iNOT YET! 
jfEXT F!«Q 
•,m MORE SOUND! 

:^ BQMJS mm HM 

; SECOND FREQ? 

'NO' 

■SEt FREQ. 

,■INCRE^CNT TirCR 

;SOU«) DOC? 
;N0! 

NEXT FISQ 
;ALL DDf€! 

jffiT BtttIS mm FLAG 
;3ra) FREQ? 

jir FREQ. 

;I^ SUN) Tir€R 



> 
z 
> 

O 

o 

o 
o 

c 

H 

Z 
Q 



(f) 

c 
m 



HAPPY WINS THE RACE WITH WARP DRIVE SPEED! 





o 



.7 



'■jl: 



HAPPY 810 ENHANCEMENT 

• The only change needed to run all WARP DRIVE software 

• Plug in P.C. board requires no permanent modifications 

• Proven reliable in thousands of installations, reduces disk drive wear i 

• Comes completely assembled and tested, just plug in and use 

• Full one year parts and labor guarantee, compatible with existing software 

• High quality printed circuit board with gold connectors 
NO ONE ELSE HAS THIS PERFORMANCE 

Unenhanced whole disk (ATARI rev B format) read time: 1 1 2 seconds 
Unenhanced whole disk (ATARI rev C fast format) read time: 89 seconds 
ENHANCED 810 whole disk (any format) read time with standard software: 68 seconds 
ENHANCED 810 whole disk (any format) read time with WARP DRIVE software: 43 seconds 
Standard software whole disk write and venfy time: 238 seconds 

WARP DRIVE software whole disk write and verify time: 62 seconds J 

NEW HAPPY WARP DRIVE SOFTWARE 

6 

WARP SPEED HAPPY BACKUP PROGRAM 

• Completely automatic: nothing to figure out, insert disks and press return 

• Only program on the market guaranteed to backup any disk 

• Can write to a blank disk: format write and verify in one operation ,- ^ 

• Automatic program tracing: copies only the tracks that are used 

• Efficient memory utilization: reduces the number of disk insertions 

• Requires only one ENHANCED disk drive, backups will work on a standard drive 
WARP SPEED MULTI DRIVE HAPPY BACKUP PROGRAM 

• Same features as above plus support of multiple ENHANCED drives 

• Can be used with up to 4 ENHANCED drives 

• Source and all destination drives read and write in parallel 

• Format write and verify 3 complete disks in less than 3 minutes 
WARP SPEED HAPPY COMPACTOR PROGRAM 

• Reduces the number of disks required to backup your library 

• Combines up to 8 self booting disks into 1 disk with a menu 

• Compacted disks run only on an ENHANCED drive 

• Pays for itself by saving on disks 

• Single or dual ENHANCED drive operation 
HAPPY WARP DRIVE DOS 

• Improves ATARI DOS 2.0S to use warp speed reading and write with verify 

• Use all features of BASIC, PILOT, FMS, and DUP at top warp speed 

• Warp speed I/O software module available separate from DOS 
HAPPY WARP DRIVE SECTOR COPY PROGRAM 

• Standard format whole disk read, write and verify in 105 seconds 

• Use with sngle or dual drives, mix ENHANCED and NON-ENHANCED drives 
HAPPY CUSTOMIZER PROGRAM (sold separately $99.95) 

• Creates custom format disks of any specification 

• Any type bad sector, duplicate sector numbers, or interleave 

• Easy to use but requires an advanced level user to interpret the results 

REVIEWED IN POPULAR MAGAZINES 

A.N.A.LO.G. COMPUTING— July/August 1983 "...The installation instructions tor the IHappy810 Enhancement are among the best I have ever seen. ...The Happy 

810 Enhancement is one of the most powerful hardware modilications available to ATARI computer owners." 

ANTIC— July 1983 "The difference between a normal ATARI 810 disk drive and one equipped with Happy is lil<e the contrast between mass transit and the 

automobile. A car costs you more initially, but improves the quality of your life. Similarly, if you use your disl< drive a lot, installing Happy will markedly enhance your 

programming lite." 

SPECIAL SUGGESTED RETAIL PRICE BEFORE FEBRUARY 28, 1984: Gel the HAPPY 810 ENHANCEMENT with the single and multi drive HAPPY BACKUP 

PROGRAM, plus the HAPPY COMPACTOR PROGRAM, plus the HAPPY DRIVE DOS. plus the HAPPY SECTOR COPY, all with WARP DRIVE speed including our 

diagnostic for $249.95. Existing registered ENHANCEMENT owners may upgrade to WARP DRIVE speed for $15.00 with no hardware changes.! 

Price includes shipping by air mail to U.S.A. and Canada. Foreign orders add SI 0.00 and send an international money order payable througti a U.S.A. bank California 

orders add $16.25 state sales tax. Cashiiers check or money order tor immediate shipment from stock. Personal cinecks require 2-3 weeks to clear. Cash COD 

available by phone order and charges will be added. No credit card orders accepted. ENHANCEMENTS for other ATARI compatible drives coming soon, call for 

information. Please specify -H model for all drives purchased new after February 1982, call for help in ENHANCEMENT model selection. Dealers now throughout 

the world, call for the number of the dealer closest to you. ATARISIO isa registered trademark of Atari, Inc. 

HAPPY COMPUTERS, INC. • P. 0. Box 1268 • Morgan Hill, California 95037 • (408)779-3830 
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ANALOG COMPUTING 



ISSUE 16 



SC4 



SC5 
CHORE 

m 

SA 



DLY2 
DLYl 



DEATH 
AGAIN 

RESTRT 



CMP m5 
BNE SC4 
INC SFl 
IDA m% 
STA STIME 
LDA SFl 
CMP #4 
BNE SC5 
LDA m 
STA AUOFl 
STA AUDCI 
LDA «$8e 
STA STI(€ 
LDA Itl38 
LDX «<«8 
STA SCREB<+13,X 
INX 

CPX LIFE 
BNE DNORE 
JMP BACK 
DEC LIFE 
LDA mtS 
STA AlfflCl 
STA AUDC2 
LDA #58 
STA AUDFl 
PHA 
CLC 

ADC mm 

STA AU0F2 
STA PC0LR8 
PLA 

LDY m6 
LDX mi 
INX 

BNE DLYl 
INY 

CPY #25 
BNE 0LY2 
CLC 

ADC «$ei 

CHP «188 
BNE SA 
LDA #$§8 
STA AUDFl 
STA AUDCI 
STA AUDF2 
STA AUDC2 
L0(\nA6 
STA PC0LR8 
LDA «$8e 
LDY LIFE 
STA SCREEN+13,Y 
LDA LIFE 
BEQ DEATH 
JMP START 
LDA 488 
STA LIFE 
LDA STRIS8 
BEQ RESTRT 
LDA CON^L 
CMP U 
BNE AGAIN 
LDA #$88 
STA ATTRAC 
JMP START2 



iSOMD DONE? 
;N0! 

iSET FOR END 
;ALL DONE! 

GET BONUS SOUND FLAG 

END OF SOUND? 

NO! 

SWT OFF SOUND! 



jALL DONE! 

;UPDATE LIVES... 
jDISPLAY 

;ALL LIMES 



;1 LESS LIFE 
;INIT DEATH SOUND 



;INIT FffiQ. 

;MREI€NT SOUW) 
;FIASH ASTRONAUT 
;TIME DELAY 



TOMR 



INC 
LDA 
CMP 
BNE 
LDA 
STA 
INC 
LDA 
CMP 
BNE 
LDA 
STA 
INC 
LDA 
CMP 
BNE 
INC 
LDA 
STA 
JMP 



TI3 
T13 

TOUR 

#$88 

TI3 

TI2 

TI2 

m 

TOVR 

«1^ 

TI2 

Til 

Til 

«22 

TOUR 

TI4 

mu 

Til 
XITVBU 



IfCREMEMT 1/68 SEC. 

TIMER 

AffflTHER SECOND? 

NO! 

RESET 68THS OF SEC 

ANOTHER SECOND 

18 SECS? 

NO! 

RESET M) SECOND... 

DIGIT TO 8 

INCREMENT 1ST... 

SECOND DIGIT 

GOT A MINUTE? 

NO! 

ihCRBecr minutes 

RESET 1ST second... 
DIGIT TO 8 
EXIT VERT BLANK! 



Set up display list 



m OF DEATH? 
NO. LOOP BACK 
SHUT OFF SOIM) 



RESET... 
ASTRONAUT CO-OR 
REMOVE... 
LIFE INDICATOR... 
FRCH SCREEN 
m MORE LIVES? 
NO! END OF G^E! 
AffflTHER LIFE. 
ZERO LIVES 

:STICK TRIGGER PRESSED? 

■YES' 

■GET CONSOLE KEY 

; START PRESSED? 

;N0! 

:RESET... 

lAHfWCT MODE 

; RESTART GAME. 



DLIST DB 112,112,112,71 

DU SCREEN 

DB 9,9,9,9,9,9,9,9,9,9 

DB 9,9,9,9,9,9,9,9,9,9 

DB ^,9,9,9,9,'), 9, 9, 9, 9 

DB 9 9 9,9,9,9,9,9,9,9 

DB 9,9,9,9 

DB 65 

DU DLIST 

; Data for astronaut inage 

ANAUT DB «88,$7C,l54,$6C,*7C,f44,*7C,$ie,«l«,$FE,$BA,«BA 
DB $W,$38,$38,*28,$28,$EE,$88 

; Set up screen menory 

MIDBYT DB 128,8,8,8.8,8,8,8,8,1 

SCREEN DB 8,8,116,185,189,181,8,8,26,8,8,6,8,8,8,8,8,8,8,8 

SCRNA DS 10 

SCRNB DS 428 

SCRNC DS 18 

END SSTAR 



; Vertical blank interrupt 



VBI 



LDA Ml PL 
ORA M2PL 
0RAM3PL 
ORA PI PL 
ORA P2PL 
ORA P3PL 
AND #1 
STA HIT 



;ALL... 

ICOLLISION... 

I REGISTERS... 

]m) CHECK... 

jFOR... 

jASTROWUT... 

iCOLLISICN! 





mTTTmiM 




PURCHASE JIHYmi PROGRAM AHO WE WILL GIVE YOU, ARSOLOTELY FR£E, 

mRDICSKh A 100% MACHINE LANGUAGE ARCADE-STYLE GAME 

RY LEN DORFMAN, IN HONOR OF THE 1004 OLYMPICS MD 

PMI WILL DONATE $1.00 TO THE O.S. OLYMPIC TEAM FOR EACH PROGRAM SOLD!! 

HORRY! THIS OFFER IS FOR A LIMITED TIME OHLY! 



WAMPYR'S TOMB 

WARNING!! This adventure may be 
addictive. WAMPYR'S TOMB, by 
James GIrnes, will take you on a jour- 
ney from tile village of Amberpool 
througfi a 'mid-evil' countryside 
filled with magical spells, demons 
and dragons. Can you stay alive? To 
prevail in WAMPYR'S TOMB you 
must do more! You must equip your- 
self to do battle with the LICH and 
win. (Of course there is the option 
of dying!) We will supply you with a 
little money and the opportunity to 
go where you've never been; the 
courage and the desire to conquer 
the unknown must come from 
within. WAMPYR'S TOMB will not 
only challenge your bravery, your 
intelligence and your cunning, but 
will take you beyond your imagina- 
tion into a realm of new and exciting 
forces where only legends survive. 
Requires 48K RAM and one disk 
drive. 

$29.95 

%mm mmi 

SWORD POINT, by William A. Austin, 
is a very unique and exciting adven- 
ture. You will assume the role of a 
young man seeking to climb to the 
pinnacle of success in the mythical 
monarchy of Simafranconia, a nation 
not unlike feudal 17th Century Europe. 
It is a country of totally masculine 
values, where style supersedes 
substance, and social level is not the 
best thing, it is the only thing worth 
acquiring. Dueling, gambling, wench- 
ing and high living are among a few 
of the things that you will do to gain 
the King's attention. So tankards up 
. . .a toast to bravery. . .with a little 
luck and by dancing to the daredevil's 
tune on the Swords Point. . .you may 
just win! Requires 48K RAM and one 
disk drive. 

$31.95 

', If you have written a program that 
is technically sophisticated and also 

"user-friendly", PMI would be in- 
terested in publishing your work. For 

information on how to submit your 

material write to: PMI, P.O. Box 2895, 

Winter Park, FL 32790-2895, Or phone 

(305) 644-3822. 



COM-CON 

Have you ever wondered what your 
computer would have to say about 
that party you had last weekend? Or 
the shape the world is in today? Well 
now you can find out. COM-CON has 
arrived! COM-CON by William Austin 
is an unique, exciting and entertain- 
ing program for everyone. Your com- 
puter can answer your questions on 
virtually any topic. While carrying on 
a discussion with COM-CON you will 
notice that your computer actually 
has a "personality" of its own. And 
like any human being the answers 
will sometimes be as vague and neb- 
ulous as a political candidate. And at 
other times quite philosophical. If 
you're 4 to 1 04 COM-CON is for you. 
COM-CON is available for the Votrax 
Type 'n Talk, $31 .95, the Alien Group 
Voice Box $31 .95, SAM $31 .95, and in 
a text only version $26.95. Requires 
48K RAM, BASIC cartridge, one disk 
drive and optional voice synthesizer. 



iMi .J*H'i'Jj; Ui 



KARMIC CAVERNS, by Len Dorfman, 
is a 100% machine language arcade- 
style game that will entertain you hour 
after hour! You must find your way 
through the maze-like caverns avoid- 
ing the deadly plasmatic guards (not 
to mention the electrified walls) and 
acquire as many energy pods as you 
can. You must climb ever upwards 
striving to acquire enough energy 
points to reach the next level before 
time runs out for you. KARMIC 
CAVERNS utilizes the full sound and 
graphics capabilities of the Atari 
computer! Fun for all ages. Requires 
48K RAM and one disk drive. 

$34.95 



ERG, another 100% machine 
language arcade-style game by 
Len Dorfman, is the ultimate maze 
escape challenge!! Multiple skill 
levels, multiple mazes, roving energy 
fields which will drain your energy 
and proton barriers which cause 
disintegration upon contact are the 
obstacles you will face. If you are an 
expert strategist and your reflexes 
are honed to a razor's edge (i.e., you 
can pull a gnat's whisker out as he 
flies by) the odds are about even. 
You might just win! Requires 48K 
RAM and one disk drive. 

$34.95 

RESTORE 

List the unlistable! RESTORE by 
William Fletcher will allow you to 
make a LISTABLE, EXECUTABLE copy 
of any BASIC program. RESTORE is 
extremely user-friendly and the sim- 
plicity of operation is astounding. 
RESTORE is a compiled program and 
executes at machine language 
speed. Utilizing the graphics and 
sound capability of the Atari, RE- 
STORE is not only an indispensible 
programmer's tool, but is fun to use. 
If you have two disk drives RESTORE 
will automatically seek out relocated 
directories and give you the option 
to either restore all BASIC programs 
on the disk or make a copy of the 
disk putting the directory in its nor- 
mal location. Requires 48K RAM and 
one or more disk drive. 

$27.95 

PROGRAMMIN' STUFF — $26.95 
VARICOMMANDER — $29.95 
PROGRAMMIN' STUFF/VARI- 

COMMANDER PACKAGE — 

$45.95 
WORDPOWER — $27.95 
BIOGRAPH — $24.95 



PMI, P.O. Box 2895, 2500 Lee Road, Suite 210, Winter Park, FL 32790-2895 

a SWORD POINT a KARMIC CAVERNS D WAMPYRS TOMB 

n PROGRAMMIN' STUFF Q T.I.P.S. D BIOGRAPH Q VARICOMMANDER Q RESTORE Q ERG 

n COM-CON n VARICOMMANDER and PROGRAMMIN' STUFF PACKAGE Q WORDPOWER 

Total $ , plus $3.00 postage & handling (Florida residents add 5% sales tax) 

n CHECK (allow 3 weeks for personal checks to clear) D MONEY ORDER 
□ C.O.D. (add an additional $2.00 for C. CD. orders) 



NAIvtE (print) . 

Address 

City- 



S.A,M. IS a trademark ol DON t ASK 



JKINQUIRIESi. 



nark of ATARI INC 
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SOLO FLIGHT 
by Sid Meier 

MICROPROSE SOFTWARE 
10616 Beaver Dam Road 
Hunt Valley, MD 21030 
48K Cassette or Disk $34.95 



by Lee Pappas 



Finally a flight simulator for Atari Home Compu- 
ters. This review includes, at no extra charge, your 
first ground school lesson (unless you're already a 
pilot). 

Solo Flight allows you to practice several types 
of flying scenarios, including cross-country and 
instrument-only exercises. The screen is divided into 
two parts. Your instrument panel resides on the 
bottom half; above it is a display of your plane as seen 
from behind, along with appropriate surroundings. 
The latter may consist of the ground, clouds or lots 
more clouds. Should you see "lots more clouds," 
you'll have to fly IFR. IFR is pilot talk for Instrument 
Flight Rules, as opposed to VFR, Visual Flight Rules. 

Your flight instruments consist of an altimeter 
(altitude gauge), airspeed indicator, a small artificial 
horizon (attitude gauge), power indicator and fuel 
gauge. Numeric readouts include pitch, flap angle, 
magnetic heading (compass) and climb rate. Two 
important readouts, VOR 1 and 2, are numeric. This 
differs significantly from the VOR units in real air- 
craft, as they are analog gauges. An ILS (Instrument 
Landing System) readout, landing gear up/down, 
brakes on/off and engine overheat indicators are also 
included. 

Control of the aircraft is achieved using the joy- 
stick and keyboard. Pushing the stick to the left or 
right will turn your plane in that direction. Pulling 
back will make the plane climb; pushing forward will 
tilt the plane's nose down. The computer's number 
keys control your speed (a la Star Raiders), the F 
key will put the flaps down in 20-degree increments, 
and the S key actuates or releases the breaks. 

The view of "what's outside" centers on the air- 
craft you're controlling. You can "look" out the left, 
right or back window by pushing the corresponding 
cursor control key. As you pilot, the aircraft will 
accurately respond to your actions; even the pitch of 
the plane changes, which I thought was really neat. 

If you opt to play IFR, you'll lose your top visual 
display (it turns grey), and it'll be just you and your 
instrument panel. If you keep the plane climbing, 
you'll eventually rise above the cloud layer and get 
your visual display back — except the ground will be 
thousands of feet below, and you'll have no idea 
where you are. Now you'll really have to know how 
to use your navigational instruments. The Solo 
Flight reference manual explains the use of these, 
along with rudimentary flight procedures. For expe- 



rienced (real life) pilots: while you may not have to 
file a flight plan, you'll have fun showing off to your 
friends who never "had time" to go up with you. 

Flying IFR can be a lot of fun, but can easily spell 
curtains until you get the hang of things . The sense of 
accomplishment you feel when you come out of the 
clouds, right on top on the airport you were flying to, 
far exceeds that of just getting a high score zapping 
space invaders. At the end of an IFR run, you'll be 
shown an on-screen map of your flight route (this 
could resemble anything from a clear cut line to 
somebody's signature!). 

The nicest parts of Solo Flight are its navigation 
features. Three rough maps are included: Eastern 
Kansas, Western Washington state, and mid- 
Colorado, each representing a different type of ter- 
rain. All three regional maps include 7 airports and 2 
VOR towers. Kansas is better for "student" pilots; 
the other two states are trickier because of mountains 
and higher ground elevations. Other features of the 
simulation allow you to practice landings, "staying in 
the pattern for touch and go's" (landings and take- 
offs), and windy conditions. 
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The ground display is made up of green multi- 
shades, and the sky, blue shades. Several puffy cumu- 
lous clouds reside on the distant horizon. The detail 
of ground objects in Solo Flight leaves a bit to be 
desired; however, I have yet to see truly realistic 
ground objects on any home flight simulator. Visible 
objects include airfields, mountains, cities and VOR 
towers. Airports are black, and roughly resemble 
their real-life counterparts. Cities look like horizon- 
tal outlines in grey. The mountains have the weakest 
imaging of all. They are merely white outlines, which 
you can see through (and even fly through!). 

As a whole. Solo Flight is the best Atari flight 
simulator published to date. Though the graphics are 
somewhat rough, and the control panel is not up to 
what it should be (there is no stall indicator, and 
non-standard VORs), if you've been looking for a 
program of this type, you'll have a lot of fun on your 
Solo FUght. D 



Jll ATAPr» Printers/Etc 

^ ■ ^ # m I #»■% I GEMINI 10X . . $279 PROWRITER . 



600XL . 
1200XL 



1050 DRIVE $335 

1025 PRINTER $399 

1020 COLOR PTR ... $219 

1027 PRINTER $279 

1010 RECORDER $72 

MICRO PERIF.MGDEM/INFC 
DRIVES 

ASTRA 1620 $469 

RANA1000 $295 

PERCOM 88-S1 $298 

PERCOM 40-S1 $418 

PERCOM 40-S2 $718 

PERCOM 44-S1 $510 

PERCOM 44-S2 $929 



CALL 

CALL* 

'Reflects $100 Atari Rebate 
MICROBITS INFC .... $78 
80 COLUMN BD ... $249 
TECHNICAL NOTES. ... $25 

REAL TIME CLK $38 

AXIOM PRINTER INFC $80 

$129 

MEMORIES 
48KRAM(INTEC) ... $95 
64K RAM (INTEC) ... $119 
48K RAM (MOSAIC) . . $109 
64K RAM (MOSAIC).. $145 
128K RAM DISK .... $299 
32K RAM (MOSAIC). . $68 



ATARI SOFTWARE 



ADVENTURE INT'L 

Adv. 1-12 each (C) $18 

Preppie(C/D) $20 

Preppiell(C/D) $23 

Diskey(D) $33 

Sea Dragon (C/D) $23 

BugOff!(C;D) $20 

Tutti-FrJtti(C/D) $17 

Saga 1-3 {ea.)(D) $27 

Lunar Lndr . (C)$11 (D)$15 
Galactic Empire (C) . . $14 
Gaiactic Trader (C) ... $14 

Stratos (C/D) $23 

RearGuard (C)$14(D)$17 

AFX 

Eastern Front (C/D) . . $23 

747 Land Sim. (C/D) . . $17 

Fig-Fortti(C) $30 

Family Cash Flow (D) . $17 

Downhill (C/D) $17 

Avalanche (C/D) $17 

Outlaw/Howitzer (C/D) $17 

Salmon Run (C/D) $17 

Data Management (D) $17 
Galahad/Holy Grail (D) $21 
Adv. Music System (D) $21 
ATARI INC. 

Microsoft Basic II (R) . $62 
Mickey in Great 

Outdoors (C/D) $36 

Paint (D) $30 

Speed Reading (C) ... $54 

Qix(R) $30 

Dig Dug (R) $30 

Atari Writer (R) $68 

Time Wise (D) $23 

Visicalc(D) $139 

Juggles House (C/D) .$22 
Juggles Rnbvir(C/D) . . $22 

Pilot (Home) (R) $55 

Galaxian(R) $30 

Defender (R) $30 

ET $34 

Microsoft Basic (D) ..$62 
Macro Ass. & Edit (D) . $62 
Assembler Editor (R) .$42 
Basic Cartridge (R) ... $45 

Pao Man (R) $30 

Centipede (R) $30 

Caverns of Mars (D) ..$28 

Star Raiders (R) $30 

Conv. Lang. Ea. (C) ... $42 
Music Composer (R) .. $31 
Super Breakout (R) ... $26 
My First Alphabet (D) . $26 

Prog.2&E(ea.)(C) $21 

Word Processor (D) .$102 

Pilot (Educ.)(R) $92 

Touch Typing (C) $19 

Home File Mngr(D) . . $36 

Bookkeeper (D) $102 

Family Finance (D) ... $35 

Prog. 1 (C) $18 

Scram (C) $18 

Asteroids (R) $27 

Space Invaders (R) ...$27 
Missile Command (R) . $27 

Telelink(R) $21 

Superman III (R) $34 

Basketball (R) $24 

Donkey Kong (R) $34 

AVALON HILL 

VC(D) $17 

B-1 Nuc. Bomber (C) . . $12 

Legionnaire (C) $23 

Empire of Overmind 

(D) $23 (C) $20 

Tanktics .. . (D)$20(C)$17 
Comptr Stocks Bonds ... 

(D)$17(C)$14 

Dnieper River Line (D) $20 

Voyager(D) $17 

Controller (D) $20 

GPS Sorceress 

(D) $23 (C) $20 

Telegard . . (D)$19(C)$16 

Vorrak(D) $18 

Lord of Karma (C) $14 



AVALON HILL(Cont'd) 

Moon Patrol (C) $17 

Planet Miners (C) $12 

Conflict 2500(C) $12 

Space Station Zulu 

(D)$17(C)$14 

Flying Ace . (D)$21 (C)$1B 

Gypsy (D)$18(C)$15 

Galaxy (D)$17(C)$14 

Guns of Fort Def.(C) . $14 

NukeWar(C) $12 

Andromeda Conquest ... 

(D)$16(C)$13 

Close Assit (D)$23(C)$20 
BRODERBUND 

Sky Blazer (D) $22 

Bank St. Writer (D) ... $46 

A.E.(D) $23 

Arcade Machine (D) . . $39 
Choplifter . (D)$23(R)$29 

Labyrinth (C/D) $20 

Serpentine . (D)$23(R)$27 
Steller Shuttle (C/D) . , $17 

Apple Panic (C/D) $20 

Genetic Drift (C/D) ... $20 
David's Midnight (D) . . $23 

Sea Fox (D) $20 

Track Attack (D) $20 

OperatnWhrlwnd(D) . $23 
Match Boxes (C/D) . . -. $20 
GDY CONSULTING 

Pogoman (C/D) $27 

Mad-Netter(C/D) $23 

lt-ls-Bailoon(C/D) $23 

CBS 

Mountain King (R) ... $27 

Boulders & Bombs (R) $27 

Krazy(each)(R) $27 

CONTINENTAL SOFT. 
Home Accountant (D) $48 
Tax Advantage (D) ... $39 
DATA MOST 

Pig Pen (D) $20 

Mating Zone (D) $20 

Roundabout (D) $20 

Bilestoad(D) $20 

Night Raiders (D) $20 

Monster Smash (D) ... $20 
DATASOFT 

Text Wizard (D) $65 

Graphic Master (D) ... $27 

Micro Painter (D) $23 

Lisp Interpreter (D) . . . $79 
Graphics Gen.(D) .... $17 
Basic Compiler (D) ... $65 

Zaxxon (C/D) $27 

Teletalk(D) $34 

Pac. Coast Hwy (C/D) . $20 
Clowns/Balloons (C/D) $20 

Spell Wizard (D) $53 

Canyon Climber (C/D) $20 
Sands of Egypt (D) ... $27 
O'Riley's Mine (C/D) . . $23 
Rosen's Brigade (C/D) $23 

Moon Shuttle (D) $27 

DON'T ASK 

Sam(D) $39 

P.M. Animator (D) $23 

Teletari(D) $27 

Poker Sam (D) $17 

Word Race . (D)$17(C)$14 
EDUWARE 

Prisoner 11(D) $27 

Spelling Bee (D) $27 

Rendevous(D) $27 

Compu/Read 

(D)$21 (C)$15 

Compu/Math-FR 

(D) $27 (C) $21 

Compu/Math-Dec 

(D)$27(C)$21 

EDUCATIONAL SOFT. 
Tricky Tutorial 

1,2,3or4(C/D) $16 

Tricky Tutorial 

5,6or7(C/D) $22 



GEMINI 10X . . $279 
GORILLA .... $199 

CITOH 

Prowriter $345 

Prowriterll $629 

Starwriter $1149 

Printmaster $1448 

NEC 

8023 AC $409 

3510 $1375 

3530 $1579 

3550 $1779 

7710/7730 $1998 



PROWRITER . $345 
SMITH TPI ... $488 

SILVER HEED P $669 

QUME11/40+ $1299 

OKI-DATA 

Microline82A 

Microline83A _j 

Microline84P ^ 

Microline92 o 

Microline93 

DIABLO 

620R $939 

63CR $1719 



MONITORS 



AMDEK 

Color I $289 

V300 $139 

V300A $149 

Color II $449 



NEC 

GRN(JB1260) $115 

GRN(JB1201) $155 

Color Composite . . . $298 
RGB Color $598 



MODEMS 



HAYES 

Smartmodem $209 

Smartmodem 1200 , . $498 
Micromodem II $259 



NOVATION 

J-Cat $99 

Apple Cat II $259 

D-Cat $149 

ANCHOR AUTOMATION 
Mark I or II Modem . . . $78 




SPECIALS 

Gemini 15X Printer $399 

Axiom AT-100 Printer(with interface $229 

Astra Double Density Dual Drive $469 

Rana 1000 Drive $319 

Bit-3 80 Column Board $245 

Mannesmann Talley 160L Printer $589 

Atari 400 Keyboard (In Home) $35 

Programmer Kit ..$48 Entertainer Kit ...$64 
Wico Joystick ... $23 Wico Trackball . . . $49 

COSMIC 
COMPUTERS 

UNLIMITED 

727 BREA CANYON RD., SUITE 16 
WALNUT, CA 91789 

ORDER LINES OPEN MON-SAT 8 am - 8 pm 

(800) 626-7642 

PLEASE FOR ORDERS ONLY 
SORRY, NO COD'S 

(714) 594-5204 

FOR TECHNICAL INFO, ORDER INQUIRIES, 
OR FOR CALIFORNIA ORDERS 

Add $250 shipping per software order in continental U.S. Add $5.00 
shipping per software order for AK, HI, FPO-APO. Add $10.00 or 15% 
(whichever is greater) per software order for non-U-S. Call for cost of 
hardware shipping. Calif, residents add 6V2% sales tax. Cashiers 
checks or money orders tilled wittiin 24 hours lor items in slock. 
Personal checks require 4 weeks to clear. f^lasterCard and Visa OK tor 
software only within continental U.S., add 3% surcharge, include card 
no., expiration date and signature. Due to our low prices, ail sales are 
final, All defective returns must have a return authorization number. 
Please call to obtain one before returning goods for replacement or 
repair. Prices & availability subject to change. 



^tflSTRFI 1620 

DISK DRIVE SYSTEM 

MORE FOR YOUR MONEY 

DOUBLE OR SINGLE DENSITY 

TWO DRIVES 




SPECIAL $469 



EPYXAUro. SIMULATION 

Rescue at Rigel (C/D) . $20 
Dateslones/Ryn(C/D) $14 
Upr Rchs Apshai(C/D) $14 

Ricochet (C/D) $14 

Keys/Actieron (C/D) ..$14 

Curse of Ra (C/D) $14 

Danger/Drindisti(C/D) $14 

JurTipman(C/D) $27 

Escp Vulcanslsle(D) . $20 
Crypt of Undead (D) . . $20 

Nightmare(D) $20 

Armor Assault (D) .... $27 
Monster Maze (R) .... $27 

Alien Garden (R) $27 

Piattermarna(R) $27 

Morloc's Tower (C) . . . $14 

King Arttiur's Heir 

(D)$20(C)$14 

Heilfire Warrior (C/D) . $27 
Invasion Orion (C/D) .. $17 
Temple of Aps. (C/D) . $27 
Star Warrior (C/D) .... $27 

Dragon's Eye(D) $20 

Crush Crumble (C/D) .$20 
GEBELLI 

Firebird (R) $27 

Embargo (R) $30 

Candy Factory (D) .... $20 
Match Racers (C/D) . , $20 

Dr. Goodcode(D) $20 

HAYDEN 

Go (D) $23 (C) $20 

Sargonll . . (D)$23(C)$20 
Bulldog Pinball(C) ... $20 
HES 

Coco (C/D) $34 

Coco II (C/D) $27 

INFOCOM 

Suspended (D) $34 

2orl<l, iiorlil(D) $27 

Starcross(D) $27 

Deadline (D) $34 

Witness (D) $34 

INHOME 

Baseball . . (R)$23(D)$23 

Crypts of Terror 

(D) $23 (C) $20 

INNOVATIVE DESIGN 

Pool 1.5(D) $23 

Juggler(D) $20 

Speedway Blast 

(D)$20(R)$27 

Pool 400 (R) $27 

JV SOFTWARE 

Jrny to Pints (C/D) .... $20 

Action Quest (C/D) ... $20 

Ghost Encount. (C/D) .$20 

LJK 

Letter Perfect (D) . . . $104 

Data Perfect (D) $74 

Letter Perfect (R) . .. $137 

Edit 6502 (R) $137 

MONARCH DATA SYS. 
ABC Compiler (D) .... $48 
00 EST A 

Chess (D) $45 

Checkers (D) $34 

Odin(D) $34 

OPTIMIZED SYSTEMS 

C-65 (D) $68 

Bug-65(D) $23 

Max-65 (D) $58 

Basic A + (D) $58 

Action (D) $65 

Speed Read Plus (D) . . $40 

PHOENIX 

Birth of Phoenix (D) . . $16 

Adv. In Time (D) $20 

QUALITY 

Fastgammon(C) $14 

NameThatSong 

(D)$13(C)$11 

Starbase Hyperion 

(D)$17(C)$14 

All Baba/40Thvs(D) ..$20 
Jeeper Creepers (D) . . $20 
ROKLAN 

Gorf (D)$27(R)$30 

WizardWor . (D)$27(R)$30 
DIx Invaders (D)$23(R)$27 
AntiSubPtri (D)$20(C)$14 

Telecom (D) $49 

Space Journey (R) . . . $30 
SENTIENT 

Gold Rush (D) $23 

Cyborg (D) $23 

SIERRA ON-LINE 
Mission Asteroids (D) $17 
Ulys.&Gldn Fleece (D) $27 
Crossfire . . (D)$20(R)$23 

Mouseattack(D) $23 

Jawbreaker (D)$20(R)$23 

Threshold (D) $27 

Softporn (D) $20 

Ultima 11(D) $39 



SIERRA ONLINE 

Marauder(D) $23 

Lunar Leeper(D) $20 

Wiz& Princess (D) ...$22 

Frogger(C/D) $23 

SIRIUS 

Alpha Shield (R) $27 

Wavy Navy (D) $23 

Bandits (D) $23 

Space Eggs (D) $20 

Sneakers (D) $20 

Way Out (D) $27 

Type Attack (D) $27 

Repton(D) $27 

Critical Mass (D) $27 

Fast Eddy (R) $23 

Worm War (R) $23 

SPINNAKER 

Snooper Troop 1,2 (D) . $30 

Kindercomp(D) $20 

Rhymes & Riddles (D) $20 
Hey Diddle Diddle (D) . $20 
Srch AmzngThngs(D) $27 

Story Machine (D) $23 

Face Maker (D) $23 

STRATEGIC SIM. 
Cosmic Balance (D) ..$27 
Cosmic Balance II (D) $27 
Tigers In Snow (C/D) . . $27 
Battle of Shiioh (C/D) . $27 
Battle of Norm. (C/D) . $27 
Cytron Masters (D) ... $27 
Knights/Desert (C/D) . $27 
Combat Leader (C/D) .$27 
SUBLOGIC 

Pinbali(C/D) $20 

SWIFTY 

J. White Music Lessons 

(C/D) $20 

Space Shuttle (D) $20 

SYNAPSE SOFTWARE 

File Mngr 800+ $65 

Protector ii (D)$23(R)$29 
Shamus . . . (D)$23(R)$29 
Fort Apocalypse (C/D) $23 

Shamus II (C/D) $23 

Necromancer (C/D) . . . $23 
Pharoh's Curse (C/D) .$23 

Slime (C/D) $23 

Page 6(D) $23 

Reptilian (C/D) $23 

Picnic Paranoia (C/D) . $23 
Claim Jumper(C/D) ..$23 

Drelbs(C/D) $23 

Shadow World (C/D) . . $23 

Survivor (C/D) $23 

T.N.T. (C/D) $23 

N.Y.C. (C/D) $23 

SlambaN(C/D) $23 

Blue Max (C/D) $23 

Nautilus (C/D) $23 

Chicken (R/D) $23 

Quasimodo (C/D) .... $23 

River Quest (C/D) $23 

SYNERGISTIC 
ProgramrWkshp(D) . . $23 
Graph Workshop (D) . . $27 
Disk Workshop (D) ... $23 
Worlock's Revenge (D) $23 
THORN EMI 

Soccer (R) $34 

Jumbo Jet (R) $34 

Submarine Comm.(R) $34 

Kick Back(R) $34 

Pool (C) $22 

Humpty Dumpty(C) ..$22 
Hckry Dckry Dck(C) . . $22 

Darts (C) $22 

USA 

Atari World (D) $39 

3-DSprgrphcs(C/D) . . $27 

Survival Adv. (C/D) ... $17 

VERSA 

Mind Bggirs I (D)$14 (C)$12 

Globe Master (D) $20 

MISCELLANEOUS 
Financial Wizard (D) . . $41 
Castle Wolfenstein(D) $20 

MasterType(D) $27 

Astro Chase (D) $22 

Miner 2049er(R) $34 

Cypher Bowel (C) $33 

Bug Attack (C/D) $20 

Raster Biaster(D) $20 

Air Strike (C/D) $27 

Prism (D) $18 

Megal9gs(C) $23 

Cap'n Cosmo (D) $19 

Spy's Demise (D) $14 

Galac. Chase (D)$20 (C)$18 

Kid Grid (C/D) $20 

Battle Trek (D) $20 

Snapper (D) $19 

T&F-PMP Property 

Management (D) .. $149 
Millionaire (D) $39 
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FINE SCROLLING 
PART iV 

TAKINO THE PLUNGE 



16K Cassette or Disk 



by Kyle Peacock 



Well, this is it. For the past two issues I've been 
babbling about how much we need assembly lan- 
guage to accomplish smooth fine scrolling. Hope- 
fully you've also been keeping up with Tom Hud- 
son's Boot Camp series. If not, don't sweat. I've 
included both BASIC and assembly listings so that 
novices and advanced programmers alike can enjoy 
the pleasures of fine scrolling. If you've been keeping 
up and have a basic understanding of the material 
covered in issues 13 through 15, you are already well 
on your way to mastering fine scrolling (and maybe 
even publishing a best-selling game). 

The following BASIC listing contains all the code 
we need to secure our objective. The assembly- 
language routines are contained in the DATA state- 
ments on Lines 8000-10000. All you need to do is 
get a grip on the parameters passed to my USR 
routine and the restrictions on said parameters. 

The USR call in Line 790 will initialize things. This 
line can be located anywhere you like, as long as all 
the proper strings have been initialized. I've done my 
best to be as diverse as possible. Consequently, there 
are slightly over a dozen parameters to worry about. 
Let's examine the USR call and its associated para- 
meters: 

A=USR CINIT , VBLANK, DLI5T , LINES , HINX , tMX 
X , HINY, IMXY, HHOX , UHAX , HSPEED , V5PEED , ST 
ICK, HINVERT , UINUERT , PAGES) 

INIT. This is the address where the USR call 
will begin execution. It is specified by using the 
ADR function in BASIC. The argument of the 
ADR function is INIT$, which is initialized with 
the data in Lines 8000 to 8999. 



VBLANK. This is the address of my vertical 
blank routine. Its definition follows the same 
criteria of the INIT parameter, and is initialized 
with the data in Lines 9000 to 9999. 

DLIST. This is the address of your freshly- 
generated display list. You should initialize 
DLIST$ by placing your display list data into 
each consecutive string element. You should 
also DIMension DLIST$ to the number of bytes 
in your display list, plus two. Your display list 
must end with the jump and wait for vertical 
blank (JVB) opcode. Do not try to install the 
associated JBV operands yourself! Lines 480 to 
510 will do it for you. 

LINES. This is the total number of actual 
lines used by your display. It is not the number of 
lines displayed at any one time. Rather, it is the 
total range of hnes of text (or bit-mapped gra- 
phics) that will be smooth-scrolled. This num- 
ber will be equal to the number of hi/lo pointers 
in the PAGES parameter (see next page). 

MINX. The minimum value for horizontal 
scrolling, 

MAXX. The maximum value for horizontal 
scrolling. 

MINY. The minimum value for vertical 
scrolling. 

MAXY. The maximum value for vertical 
scrolling. 

The above MIN and MAX parameters dictate 
the outer boundaries of the scrolling area. Since 
smooth-scrolling requires the changing of hard- 
ware registers and the updating of LMS ope- 
rands, the assembly-language routine needs to 
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keep track of the number of operand updates 
(e.g.; byte shifts). If the specified boundaries are 
exceeded, scrolling is halted. MINX and MINY 
are associated with the leftmost and uppermost 
boundaries, respectively. MAXX and MAXY 
are associated with the rightmost and lowermost 
boundaries. MAXY should be initialized to 
LINES, minus the total number of LMS instruc- 
tions in your display list. 

HMAX. This is the maximum value of the 
hardware register HSCROL. It is dependent on 
the graphics mode. The following table lists gra- 
phics modes and their associated HMAX value. 



Graphics Mode 


HMAX Value 





3 


I 


7 


2 


7 


3 


15 


4 


15 


5 


7 


6 


7 


6+ 


7 


7 


3 


7+ 


3 


8 


3 



VMAX. This is the maximum value of the 
hardware register VSCROL. If you'll recall, last 
issue I listed a table of graphics modes and their 
associated VSCROL ranges (Issue 15, page 
106). Reference this table to find the correct 
value of VMAX for your application. 

HSPEED. The speed of horizontal scrolling. 

VSPEED. The speed of vertical scrolling. 

The SPEED parameters dictate how fast the 
display will scroll. The value stored in these 
parameters should be specified in jiffies (60ths 
of a second). For example, a value of 1 will cause 
the display to scroll one position every 1 /60 of a 
second. A value of 60 will cause the display to 
scroll once every second. A value of zero will 
terminate scrolling altogether. A negative value 
in these parameters will probably screw things 
up, so don't try it! 

STICK. This is the joystick number to be 
read. Valid ranges are to 3. Every time the 
associated stick is moved, the display will scroll 
accordingly. This parameter is handy for 
multiple-user applications. 

HINVERT. The horizontal scroll inversion 
flag. 

VINVERT. The vertical scroll inversion flag. 



The INVERT parameters invert the scrolling 
direction when they have a non-zero value. For 
example, if HINVERT is zero, the display will 
scroll to the left when the joystick is moved to 
the left. If HINVERT is one, the display will 
scroll to the right when the joystick is moved to 
the left. These parameters are useful when you 
wish to create a scrolling map-like display. 

PAGES. This parameter is the address of a 
list of hi/lo pointers used for screen RAM. 
PAGES$ should be initialized with the high and 
low pointers of the RAM areas you wish 
scrolled. For example, if your screen RAM uses 
page 8, page 12 and page 20, PAGES$ should 
contain 8, 0, 12, 0, 20 and 0. Keep in mind that 
PAGES$ is structured in hi/lo byte fashion. The 
LINES parameter should equal the number of 
pairs of screen RAM pointers (three in this 
case). 

Disclaimer. 

Although I have tried to incorporate as many fea- 
tures as possible into these routines, some of you out 
there may find they will not work for your particular 
application. For example, the routines will bomb out 
if you have an LMS instruction that is over 255 bytes 
away from the beginning of the display list. This 
problem cannot be easily remedied, as it was a design 
consideration. Should you encounter any other 
strange problems, feel free to send me a disk or tape 
with your program, an explanation of the problem, 
and a self-addressed stamped envelope. Time permit- 
ting, I'll asess the damage and (hopefully) come up 
with a solution. 

Wow! Other than the program listing, I'm all 
done. I had no idea how involving this column would 
be. From now on I'll stick to playing and reviewing 
games. Maybe one day I'll review your masterpieces, 
incorporating fine scrolling. Until then, see you in 
the funny papers. D 



BASIC Listing. 

100 REH KMKKKMKKKKKICMKMMMKKMMKKMKK 

lie REM * SMOOTH SCROLL DEMO # 

120 REM » BY KYLE PEACOCK » 

130 REM « A.N.A.L.O.G. COMPUTING * 

140 REM * ISSUE 16 » 

150 REM « ALL RIGHTS UNRESERVED! * 

160 REM MMKXKKMMKKKKKKMKKKMKMKMMKK 

170 REM 

180 PRINT ■'«" 

190 REM 

200 REM - DIMENSION INITS & UBLANK5 

210 REM - EXACTLY OS THEY ftRE HERE. 

220 REM 

230 DIM INITSC139],UBLANK5C408} 

240 REM 

250 REM - DIMENSIONS OF PftGESS & 

260 REM - DLISTS HILL DEPEND ON 

270 REM - aPPLICATION 

280 REM 

290 DIM PAGESS(112J, DLISTS (78) 

300 PRINT "PHASE COMPLETE." 

310 REM 

320 REM - INSTALL UESgS DATA. 

330 REM - LOOP VARIABLE SHOULD BE 1 
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348 REH - TO tt OF PAGE BVTE5 DIVIDED 

350 REM - BY TMO. 

360 REM 

370 FOR H=l 10 SerREAD A^B 

380 PaGESStX»2-l,X»2-l>=CHRSCB) 

390 PflGE5SCK«2,K«2J=CHRStAJ :NEXT X 

400 ? "PHA5E D COMPLETE." 

410 REM 

420 REM - INSTALL imn.-ll DATA 

430 REM - LOOP VARIABLE SHOULD BE 1 

440 REM - TO « OF DLIST BYTES 

450 REM 

460 FOR X=l TO 76: READ A 

470 DLISTSfX,X)=CHRS(AJ :NEXT X 

480 HIGH=IMTCADRfDLISTS)/256J 

490 L0M=ADRCDLI5TSJ-HIGH»256 

500 DLIST5(X,X]=CHRS(L0M) 

510 DLI5T$tX+l,H+lJ=CHRSCHIGH) 

520 ? "PHASE a COMPLETE." 

530 REM 

540 REM - INSTALL VBLANK INITIALIZER 

550 REM 

560 FOR X=l TO 199: READ A 

570 INIT$(X,X]=CHR$CA} :NEXT K 

580 ? "PHASE a COMPLETE." 

590 REM 

600 REM - INSTALL VBLANK ROUTINE 

610 REM 

620 FOR X=l TO 408: READ A 

630 VBLANK$CX,X]=CHR$CA) :NEXT X 

640 REM 

650 REM - ALL DONE. , . 

660 REM 

670 ? "PHASE Q COMPLETE." 

680 REM 

POKE A INTO MEM. LOC ■ 

mea to halt agiaiiifiiB. 

IF ANY PARAMETERS NEED TO 
BE CHAN GED ONCE TH INGS GET 
GOING, IJilM^rfcjm m. THEN 
PERFORM THE llH;l CALL WITH 
THE NEM P ARAMETERS. 

FINALLY, mnSMMSEBHL 



690 REM 

700 REM 

710 REM 

720 REM 

730 REM 

740 REM 

750 REM 

760 REM 

770 REM 

780 POKE 1791,1 

790 A=USR (ADR (INIT^l , ADR CVBLANK$I , ADR ( 

DLI5TS) ,56, 0,255, 0,32, 7, 7, 1,1, 0,0,0, AD 

R(PAGESSJ) 

800 POKE 1791,0 

810 GOTO 810 

820 REH 

830 REM - RAM PAGE USAGE 

840 REM 

850 DATA 0,0,1,0,2,0,3,0 

860 DATA 250,0,251,0,252,0,253,0 

870 DATA 254,0,255,0 

880 DATA 3,0,1,0,0,0,253,0 

890 DATA 250,0,5,0,4,0,250,0 

900 DATA 5,0,2,0,0,0,4,0 

910 DATA 253,0,241,0,222,0,3,0 

920 DATA 247,0,212,0,2,0,1,0 

930 DATA 3,0,5,0,252,0,253,0 

940 DATA 255,0,254,0,253,0,252,0 

950 DATA 251,0,250,0,249,0,248,0 

960 DATA 1,0,3,0,2,0,5,0 

970 DATA 4,0,248,0,252,0,253,0 

980 DATA 0,0,3,0,6,0,4,0 

990 DATA 254,0,255,0 

1000 REM 

1010 REM - DISPLAY LIST 

1020 REM 

1030 DATA 112,112,112,118,0,0 

1040 DATA 118,0,0,118,0,0,118,0,0 

1050 DATA 118,0,0,118,0,0,118,0,0 

1060 DATA 118,0,0,118,0,0,118,0,0 

1070 DATA 118,0,0,118,0,0,118,0,0 

1080 DATA 118,0,0,118,0,0,118,0,0 

1090 DATA 118,0,0,118,0,0,118,0,0 

1100 DATA 118,0,0,118,0,0,118,0,0 

1110 DATA 118,0,0,86,0,0,65 

8000 REM 

8010 REM - VBLANK INITIALIZER 

8020 REM 

8030 DATA 165,16,41,127,133,16,141 

8040 DATA 14,210,216,104,104,141,28 

8050 DATA 6,104,141,27,6,104,141 

8060 DATA 1,6,104,141,0,6,104 



8070 DATA 104,141,8,6,104,104,141 
8080 DATA 2,6,141,18,6,104,104 
8090 DATA 141,4,6,104,104,141,3 
8100 DATA 6,141,19,6,104,104,141 
8110 DATA 5,6,104,104,141,6,6 
8120 DATA 104,104,141,7,6,104,104 
8130 DATA 141,10,6,104,104,141,11 
8140 DATA 6,104,104,141,9,6,104 
8150 DATA 104,141,12,6,104,104,141 
8160 DATA 13,6,104,133,204,104,133 
8170 DATA 203,169,1,141,16,6,141 
8180 DATA 17,6,165,205,72,165,206 
8190 DATA 72,173,0,6,133,205,173 
8200 DATA 1,6,133,206,160,0,162 
8210 DATA 0,142,15,6,142,15,6 
8220 DATA 177,205,141,26,6,41,15 
8230 DATA 240,33,173,26,6,41,64 
8240 DATA 240,26,200,200,173,26,6 
8250 DATA 41,15,201,1,240,18,173 
8260 DATA 26,6,41,48,240,8,152 
8270 DATA 56,233,2,157,29,6,232 
8280 DATA 200,208,211,142,20,6,104 
8290 DATA 133,206,104,133,205,169,7 
8300 DATA 174,28,6,172,27,6,32 
8310 DATA 92,228,96 
8320 REM » 199 BYTES 
9000 REM 

9010 REM - VERTICAL BLANK ROUTINE 
9020 REM 

9030 DATA 173,255,6,240,3,76,98 
9040 DATA 228,216,173,0,6,141,48 
9050 DATA 2,173,1,6,141,49,2 
9060 DATA 206,16,6,208,124,173,10 
9070 DATA 6,141,16,6,240,116,174 
9080 DATA 9,6,189,120,2,172,12 
9090 DATA 6,208,12,41,12,201,8 
9100 DATA 240,103,201,4,240,12,208 
9110 DATA 93.41,12,201,4,240,91 
9120 DATA 201,8,208,123,238,14,6 
9130 DATA 173,14,6,205,6,6,240 
9140 DATA 112,144,110,173,18,6,205 
9150 DATA 2,6,208,7,206,14,6 
9160 DATA 240,97,208,95,206,18,6 
9170 DATA 169,255,72,48,7,169,0 
9180 DATA 141,14,6,240,80,141,22 
9198 DATA 6,104,141,23,6,174,8 
9200 DATA 6,202,160,0,177,203,24 
9210 DATA 109,22,6,145,203,200,177 
9220 DATA 203,109,23,6,145,203,200 
9230 DATA 202,16,236,173,22,6,48 
9240 DATA 211,16,34,240,38,208,36 
9250 DATA 206,14,6,16,31,173,18 
9260 DATA 6,205,4,6,208,7,238 
9270 DATA 14,6,240,18,208,16,238 
9280 DATA 18,6,169,0,72,169,1 
9290 DATA 16,182,173,6,6,141,14 
9300 DATA 6,206,17,6,208,110,173 
9310 DATA 11,6,141,17,6,240,102 
9320 DATA 174,9,6,189,120,2,172 
9330 DATA 13,6,208,12,41,3,201 
9340 DATA 2,240,49,201,1,240,12 
9350 DATA 208,79,41,3,201,1,240 
9360 DATA 37,201,2,208,69,286,15 
9370 DATA 6,16,64,173,19,6,205 
9380 DATA 3,6,208,7,238,15,6 
9390 DATA 240,51,208,49,206,19,6 
9400 DATA 173,7,6,141,15,6,240 
9410 DATA 38,208,36,238,15,6,173 
9420 DATA 15,6,205,7,6,240,25 
9430 DATA 144,23,173,19,6,205,5 
9440 DATA 6,208,7,206,15,6,240 
9450 DATA 10,208,8,238,19,6,169 
9460 DATA 0,141,15,6,173,14,6 
9470 DATA 141,4,212,173,15,6,141 
9480 DATA 5,212,173,20,6,240,83 
9490 DATA 141,21,6,165,205,72,165 
9500 DATA 206,72,162,0,142,24,6 
9510 DATA 173,19,6,10,141,25,6 
9520 DATA 173,48,2,133,205.173,49 
9530 DATA 2,133,206,172,25,6,177 
9540 DATA 283,72,174,24,6,189,29 
9550 DATA 6,168,200,104,145,205,238 
9560 DATA 25,6,172,25,6,177,203 
9570 DATA 72,189,29,6,168,200,200 
9580 DATA 104,145,205,238,24,6.238 
9590 DATA 25,6,206,21,6,208,210 
9600 DATA 184,133,206,104,133,205,76 
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DISK DRIVES 



ATARI 800XL Call 

Atari 1 050 Disk Drive Call 

Atari 1 01 Recorder 77.00 

Atari 1027 Printer Call 

Atari 850 Interface Call 

MOSAIC 

64K Ram/400 1 49.00 

64K Ram + Cable Kit/400/800 169.00 

48K Ram Kit 94.00 

16/32 Expander 64.95 

32K Ram 77.95 

Mosaic Adaptor 49.95 



Percom . . 




Trak Call 


Rana 

Indus Gt . 


....For 
. Prices 



NEW 

RS232 Modem 
Adaptor (Through serial 
port) 39.95 

Koala Touch 
Tablet 69.95 



MONITORS 

We carry a full 
of AMDEK and 
Monitors. 



line 
USI 



64COMODORE64 

Rao-Mac 34.95 

Centipede 34.95 

Defender 34.95 

Dig Dug 34.95 

Donkey Kong 34.95 

Stargate 34.95 

Robotron 34.95 

Please call product availability of other 64 software 
products at same low prices! 

3RD Party Printer Interfaces 

Interfast I 139.00 

Apeface w/cable included 69.95 

PRINTERS 

SUPER SPECIAL - Prowriter Package 

with Apeface or Interfast I Call 

Axiom AT-1 00 229.00 

Axiom AT-550 329.00 



ATARI 

Programming 2 & 3 - T . . 23.95 
Conversational Languages 

T 44.95 

Music Composer- C . . . . 32.95 

My First Alphabet - D . . . 26.95 

Touch Typing - T 19.95 

Home Filing Manager 

D 37.95 

Mailing List - T 19.95 

Caverns of Mars - D .... 28.95 

Computer Chess - C . . . . 26.95 

Missile Command - C . . . 26.95 

Super Breakout - C .... 26.95 

star Raiders - C 32.95 

Assembly Editor -C .... 46.95 

Basic -C 41.95 

Macroassembler - D . . . . 67.95 
Pilot (Home Package) 

C 58.95 

Invitation to Programming I 

T 19.95 

Speed Reading - T 55.95 

Basketball -C 26.95 

Graph-it -T 15.95 

Juggles House - D/T .... 22.95 

Pilot (Educator) - C .... 97.95 

Video Easel - C 26.95 

Defender - C 32.95 

Galaxlan - C 32.95 

Olx - C 32.95 

Dig Dug - C 32.95 

ET - C 37.95 

Timewise - D 23.95 

Atariwrller - C 74.95 

Donkey Kong - C 37.95 

Ms. Pac-Man - C 39,95 

Tennis - C 35.95 

Eastern Front - C 32.95 

Donkey Kong Jr. - C ... . 39.95 

Pengo - C 35.95 

Logo -C 79.96 

Robltron - C 35.95 

Pole Position - C 39.95 

Microsoft Basic II -C ... 67.95 

Paint - D 33.95 

Caverns of Mars - C . . . . 32.95 

Joust - C 39.95 

Visicalc-D 159.95 

THORN 

War Games - Cart 27.95 

Hockey -Cart 27.95 

Soccer - Cart 30.95 

Submarine 

Commander - Cart . . . 30.95 

GAMESTAR 

Baja Buggies -D/T 22.95 

Starleague 

Baseball -D/T 22.95 

Starbowl Football D/T . . . 22.95 



SPINNAKER 

Up For Grabs - Cart 27.95 

Cosmic Life - Cart 23.95 

Pacemaker - Cart/Disk .... 23.95 

Alphabet Zoo - Cart 23.95 

Fraction Fever - Cart 23.95 

Kids on Keys - Cart 23.95 

Delta Drawing - Cart 27.95 

Story Machine - Disk 23.95 

Rhymes & Riddles - D .... 20.95 

Amazing Things - D 27.95 

Hey Diddle Diddle - D .... 20.95 
SnooperTroop5lor2-D ..30.95 

Trains -D 27.95 

Aerobics - D 30.95 

SIRIUS 

Bandits - D 23.95 

Way Out - D 27.95 

Repton - D 27.95 

Twerps - D 23.95 

Blade of Blackpoole - D . . 27.95 

Type Attack - D 27.95 

Beer Run - D 23.95 

Critical Mass- D 27.95 

Wavy Navy - D 23.95 

SIERRA ON-LINE 

Homeword - D 34.95 

Dark Crystal - D 27.95 

Frogger-D/T 23.95 

Quest For Tires - D .... 23.95 

Ultima I - D 23.95 

Ultima M -D 41.94 

Wizard/Princess - D .... 22.95 



SEGA 

Buck Rogers - Cart .... 27.95 

Star Trek- Cart 27.95 

Congo Bongo- Cart .... 27.95 

Tac Scan- Cart 27.95 

EPYX 

Gateway To Apshai 
Cart 27.95 

Pitstop - Cart 27.95 

27.96 
27.95 
27.95 
27.95 
27.96 



Lunar Outpost - Cart 
Swat Rescue - Cart . . 
Silicon Warrior - Cart . 
Fun With Music - Cart . 
Jumpman Jr. - Carl .. 
Dragonriders of Pern 

D/C 27.95 

Temple Of Apshai 

D/C 27.95 

Hellfire Warrior -D/C ... 20.95 
Fun With Art - Cart 27.95 

INFOCOM 

Deadline - D 34,95 

Witness - D 34.95 

Zorkl.ll.lll-D 27.95 

Starcross - D 27,95 

Planetfall - D 34,95 

Suspended- D 34,95 

Enchanter -D 34,95 

Infidel -D 34.95 

Hundreds of items 
available for the ATARI 
. . . please call. 



LJK 

Letter Perfect - D 74.95 

Data Perfect - D 74.95 

Spell Perfect - D 64.95 

BRODERBUND 

AE-D 23.95 

Arcade Machine - D .... 41.95 

Bank St. Writer- D 49.95 

Lode Runner -D 23.95 

Drol - D 23.95 

Spare Change- D 23.95 

Choplifter- 23.95 

DATA SOFT 

Money Wizard - D 49.95 

Letter Wizard- D 49.95 

Spell Wizard - D 34.95 

Genesis- D/T 20.95 

Heathcllff - D/T 20.95 

Pooyan - D/T 20.95 

Zaxxon - D/T 27.95 

Micropainter - D 23.95 

SYNAPSE 

Blue Max - D/T 23.95 

Dimension X- D/T 23.95 

Drelbs - D/T 23.95 

Encounter - D/T 23.95 

Necromancer - D/T .... 23.95 

Quaslmoto - D/T 23.95 

Rainbow Walker- D/T .. . 23.95 

ShamusCasell -D/T . . . 23.95 

Zeppelin - D/T 23.95 



'Compat^biLity^ 



TM 



To Order Call Toll Free 



For Technical Info, Order 
Inquiries, or for Wise. Orders - 



800-558-0003 414-351-2007 

NO SURCHARGE FOR MASTERCARD OR VISA 



COIVIPUTABILITY 

P.O. Box 17882 

(i/lilwaukee, Wl 53217 



ORDER LINES OPEN 
Mon-Fri 1 1 Alvl - 7 PM GST 
Sat 12 PIVI-5PMGST 



ORDERING INFORMATION For fast delivery send cashier's check, money order or direct bank transfers. 
Personal and company checks allow 2 weeks to clear. Charges for COD are $3.00. School Purchase 
Orders welcome. In CONTINENTAL USA, include $3,00shipping per software order. Include 3% shipping 
on all Hardware orders, minimum $3,00, Mastercard & Visa please include card # and expiration date, Wl 
residents please add 5% sales tax, HI, AK, FPO, APO, Canadian orders- add 5% shipping, minimum $5,00. 
All other foreign orders, please add 1 5% shipping, minimum $10,00, All goods are new and Include factory 
warranty. Due to our low prices, all sales are final. All defective returns must have a return authorization 
number, PLease call 414-351-2007 to obtain an RAff or your return will NOT be accepted for replacement 
or repair. Prices and availability are subject to change without notice. 



FIRST STAR 

Bristles- D/T 20,95 

Flip Flop- D/T 20,95 

Astro Chase - D 20.95 

Boulder Dash - D/T .... 20,95 

STRATEGIC SIMULATIONS 

Carrier Force - D 41 ,95 

Combat Leader - D/T . . . 27,95 
Battle For Normandy 

-D'T 27 95 

Eagles - D/T 27,95 

PARKER BROS. 

Astrochase - Cart 34,95 

Frogger - Cart 34,95 

Q'Bert - Cart 34.95 

Popeye-Cart 34.95 

MISCELLANEOUS 

Castle-Wolfenstein - D . . 20.95 

Home Accountant - D . . . 52.95 

Master Type -D/Cart ... 27.95 

Spe!unker-D 27.95 

Flight Simulator II - D ... 37.95 

Zombies- D/T 23.95 

Mr. Robot - D 23.95 

River Raid- Cart 31.95 

Diskey-D 34.95 

Chatterbee - D 27.95 

Rally Speedway - Cart . . . 34.95 

Ultima III- D 41.95 

Miner 2049'er- Cart .... 34.95 

Scraper Caper- Cart . . . 34.95 

Basic XL - Cart 74.95 

Monkey Wrench II - Cart . 49.95 

Omnimon 82.95 

BOOKS 

Compute's First 

Bk/Games 12.95 

Inside Atari DOS 19.95 

Mapping the Atari 14.95 

Machine Language/ 

Beginners 14.95 

Your Atari Computer ... 16.95 

The Atari Assembler .... 12.95 

Visicalc Book-Atari .... 14.95 

ACCESSORIES 

WICO Joystick Call 

Flip'n' File Trunks 20.95 

Flip'n' File Cart 20.95 

Joysensor 24.95 

Elephant Disks 

(Box of 10) 20.00 

WICO Trakball 37.95 

KRAFT Joystick 15.95 

D - Disk T - CasseRe 
C- Cartridge 



progranmiier s 



READ THIS... 




WHO TO SELL YOUR PROGRAMS TO | 

THOUSANDS OF COMPANY NAMES AND ADDRESSES, 

WITH DETAILED LISTINGS SHOWING: i|p 

(1) WHAT PROGRAMS PUBLISHERS ARE LOOKING FOR ' 

(2) HOW THEY WANT YOU TO SUBMIT YOUR PROGRAM 

(3) HOW MUCH THEY PAY — AND WHEN! 
100 CATEGORIES — FROM "ACCOUNTS RECEIVABLE"^ 
TO "GAMES" TO "VIDEO CONTROL" PROGRAMS 
HOW TO WRITE CLEAR DOCUMENTATION 
DEBUGGING TECHNIQUES ,^ame 

Enclose check or money order 
for $19.95 fNoC.O.D.'sJ to: 

IPF Publications Address 

146 Country Club Lane 
Potnona, NV 10970 



Order Your 
Copy Today! 



f9I4J 354-5585 



City. 



State. 



Zip. 
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3610 DflTfi 98,228 
9620 REM » 488 BYTES 



CHECKSUM DATA 

(See pp. 20-24.) 

188 DflTfl 526,476,135,536,542,778,544,9 

5,988,181,426,664,82,977,88,6958 

258 DJJTft 244,226,971,188,692,844,81,32 

1,649,729,188,96,254,794,626,6815 

488 DftTft 895,83,537,651,898,95,126,944 

,785,9,524,871,986,91,167,7494 

558 DflTft 97,473,854,927,189,517,87,441 

,418,96,687,182,929,188,391,6228 

788 DdTft 275,677,843,183,562,985,727,1 

87,7,81,984,717,94,228,180,6418 

858 DOTft 748,499,339,866,349,748,372,3 

28,336,583,584,765,375,771,347,7842 

1888 DfiTft 275,69,277,91,579,588,581,58 

2,583,584,578,36,289,995,291,6398 

8838 OftTfl 887,727,417,132,632,368,583, 

441,137,645,682,597,879,883,462,8384 

8188 DflTfl 674,461,577,153,472,606,689, 

422,417,688,872,762,339,468,561,8881 

9808 DflTft 291,457,293,628,488,337,658, 

474,482,337,885,587,443,344,886,7486 

9150 DfiTfl 342,484,688,487,336,434,886, 

912,486,653,594,195,472,192,681,7682 

9380 DATft 453,616,618,347,586,583,468, 

418,369,488,373,492,175,648,398,7080 

9450 DftTft 625,174,448,594,664,616,338, 

670,492,516,784,664,678,923,625,8795 

9600 lyflTft 953,188,554,1695 



8456 
0468 
8478 



MISCELWNEOUS MB10RY USAK 



8118 
6128 
8138 



8158 
8168 
8178 



8196 
8288 
8218 
8228 
6238 
8248 

81 

8278 
8286 
8298 
8388 
8318 
6328 
6338 
6348 
6356 
8368 
8378 
6388 
6398 



Assembly Listing. 



.OPT NO LIST 

I »•»«»<««*« 

; SYSTEM EQUATES 
; ««(•«*«««*«« 

^KMSK = il8 ;POKEY IKTERRUPT 

SDLSTL = *8238 ;DLIST POIKTER 

STICK8 = $8278 ; JOYSTICK PORT 

IRQEN = *D28E |IMTER. REQUEST 

HSCROL = «D484 jSCROLL REGISTER 

USCROL = iD485 sSCRO-L RE6ISTER 

SETVBV = iE45C |SET TIMERS 

XITVBV = «E462 jEXIT DEF VBLANK 



8418 
8428 
8438 



MEMfflrr USAGE ti EQUATES 

LISTLO = *8688 ;DLIST LO-BYTE 

LISTHI = *8681 ;DLIST HI-BYTE 

MINX = $8682 ;LEFTMOST LIMIT 
MINY = «683 UPPER LIMIT 

mXX, = $8684 jRIGHTMOST LIMIT 

mXY = «685 jLOUER LIMIT 

H¥0( = $8686 :LARGEST HSCROL 

gWX= $8687 jLARGEST VSCROL 

ALINES = $8688 ;« OF D-LINES 

STICK = $8669 {JOYSTICK f» 

HSPEED = $66eA ;HOR. SPEED 

WEED = $868B ;VER. SPEED 

HINVERT = $868C ; INVERSION FLAG 

yiNVERT = $868D ; INVERSION FLAG 

PAGES = $CB ;SCREBI PAGES 

ZFAGE = $CD jZERO PAGE INDEX 



8566 ^IT = $668E 
8518 UBIT = $86eF 
0528 HTIME = $8618 
8538 VTIME = $8611 
0548 HPOINT = $8612 
8558 VPOINT = $8613 
0568 DLINES = $6614 
6578 COUNT = $8615 
8586 TEMP = $8616 
6598 TEMPI = $8617 
6688 XHOLDl = $8618 
8618 XH0LD2 = $8619 
6628 OPCODE = $861A 
8638 ^Um = $861 B 
OFFSETS = $861D 
STOPALL = $86FF 



0658 



COPY 
CWY 



1818 

1828 

1838 

1648 

1858 

1868 

1878 

1888 

1898 

1188 

1118 

1128 

1138 

1148 

1158 

1168 

1178 

1188 

1198 

1268 

1216 

1228 

1238 

1248 

1258 

1268 

1278 

1288 

1298 

1388 

1318 

1328 

1338 

1348 

1358 

1368 

1378 

1388 

1398 

1488 

1418 

1428 

1438 

1448 

1458 

1468 

1478 

1488 

1498 

1566 

1516 

1526 

1536 

1548 

1558 



.INCLUDE «D:\A!>R.ASM 
; INITIALIZATION ROUTINE 



'HSCROL' 
'VSCROL' 
'HSPEED' COPT 
'VSPEED' COPY 
SHIFT COUNTER 
SHIFT COINTER 
LMS OPCODES CNT 
'DLMS' CIPY 
TEtff STORAGE 
TEMP STORAGE 
TEMP STORAGE 
TEMP STORAGE 
DLIST OPCODE 
VBliM VECTOR 
OFFSETS TO LMS 
■HOLD EVERYTHING 



«= $4888 
LDA POKMSK 
M) «$7F 
STA POKMSK 
STA IROm 

ao 

PW 

PW 

STA VBLANK+1 

PLA 

STAVBliWK 

PIA 

STA LISTHI 

PiA 

STA LISTLO 

PLA 

PLA 

STA ALINES 

PLA 

PLA 

STA MINX 

STA HPOINT 

PLA 

PLA 

STAMAXX 

PLA 

PLA 

STA HINY 

STA VPOINT 

PW 

PLA 

STAMAXY 

PLA 

PiA 

STA mAX 

PLA 

PLA 

STA WAX 

PLA 

PLA 

STA HSPEED 

PLA 

PLA 

STA VSPEED 

PLA 

PW 

STA STICK 

PLA 

PLA 

STA HINVERT 



:GET IRQ. INT. 
;N0 BREAK KEY 
;THE BREAK KEY 

NO latiSER UORKS 
:CLEAR DECIMAL 

i SF AR8IB€NTS 
jVBLANK HI/BYTE 

jVBLANK LO/BYTE 

jDLIST HI/BYTE 

;DLIST LO/BYTE 

{DISCARD 
■GET 'LINES' 

{DISCARD 
;GET 'MINX' 

{RESET TO START 
{DISCARD 
{GET 'MAXX' 

{DISCARD 
{GET 'MINY' 

{RESET TO START 
{DISCARD 
■GET 'MAXY' 

{DISCARD 
{GET 'IfttX' 

{DISCARD 
■GET 'VtttX' 

{DISCARD 
■GET 'HSPEED' 

{DISCARD 
{GET 'VSPEED' 

{DISCARD 
{GET 'STICK' 

{DISCARD 
{GET 'HlfWERT' 
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1568 
1S7B 
1588 
1598 
1688 
1618 
1628 
1638 
1648 
1658 
1668 
1678 
1688 
1698 
1786 
1718 
1728 
1738 
1748 
1758 
1768 
1778 



PLA 

PLA 

STA VIWERT 

PIA 

STA PAGES+1 

PLA 

STA PAGES 

LDA t$ei 

STA HTM 
STA VTIME 



DISCARD 

GET 'UINVERT' 

PAGE USAGE HI 
STORE IT 
PAGE USAGE LO 
STORE IT 
INITIALIZE RAH 
COPY OF SPEED 
TIMERS. 



BmiHE DLIST, NOTE UIS OPCODES 



1798 



1818 
1828 



LDA ZPAIS 

PHA 

LDA ZPAK+I 

PHA 

LDA LISTLO 

STA ZPAGE 

LDA LISTHI 

STA ZPAGE+1 

LDY l$88 

LDX #$88 

SrX VBIT 

STX VBIT 



1838 DLOOK LDA (ZPAGE) 



1848 
1858 
1868 
1878 



STA OPCODE 
fW i$8F 
BEQNEXT 
LDA OPCODE 
AM) K48 
reQNE)CT 
INY 
INY 

LDA OPCODE 
AM) ti8F 
Cffl> »81 
BEQ DONE 
LDA OPCODE 
AM) »3fl 
BEQNE>a 
TYA 
SEC 
sk: t$82 



1898 
1988 
1918 
1928 
1938 
1948 
1958 
1968 
1978 
1988 
1998 
2888 

mi 

2828 

2838 

2848 NE)a INY 

2858 WE mm 

2868 DONE STX DLINES 



SAVEtWATEUER 
IS IN MEH. LOC. 
SAVEWIWTEUER 
IS IN MEM. LOC. 
GET DLIST/LO & 
PUT IN UORttflREA 
GET DLIST/HI tc 
PUT IN UOI««^REA 
SET IF COIWTER 
SET UP COUNTER 
SET UP SCROLL 
BITS TO ZERO 
,Y jOT DISPLAY 
LIST WCODE 
IS IT A BLANK 
LINE OPCODE? 
IS IT AN LMS 
OPCCBE? 

IF SO, SKIP 
LMS (tfERAM)S 

IS IT A ,R« 

OPCODE? 

IF SO. STiy. 

ARE SCROLL BITS 

OF OPCODE SET? 

THIS IS m LMS 

OPCODE W/SCROLL 

BITS SET. SAVE 



STA OFFSETS,^ |TI€ OFFSET 
INX 



2878 
2888 
2898 
2188 
2118 
2128 
2138 
2148 
2158 
7888 
7618 
7828 
7636 
7848 
7858 
7868 
7878 



PLA 

STA 2PAGE+1 

PLA 

STA ZPAGE 

LDA #$87 

LDX UBLANK+1 

LDY VBLANK 

JSR SETVBV 

RTS 



MOVE TO NEXT 
DLIST OPCCffiE. 
SAVE I OF LINES 
RESTORE MEH. 
LOCATION. 
RESTORE MEM. 
LOCATION. 
TELL SYSTEM TO 
I SET UP OEF. 
VERTICAL aANK 
ROUTINE. 
ALL DONE. BYE! 



.INCLUDE «D:WR.ASM 
TIHE TO HORIZONTAL SCROLL? 



7898 



>= $5888 
LDA STffiWLL 
BEQ PLUNGE 
JMPXITVBV 



7m PLUN^ CLD 

7118 

7128 

7138 

7148 

7158 

7168 



;IS IT OI«Y TO 
;EXECUTE? 
;N0! BYE! 
;YES, CLEAR DEC. 
;TELL ANTIC 
;UHERE YOUR NEW 
jDISPlAY LIST IS 



LDA LISTLO 

STA SDLSTL 

LDA LISTHI 

STA 3DLSTL+r 

DEC HTIME ;DECRma<T TIMER 



7178 
7188 
7198 
7286 
7218 
7226 
7238 
7248 
7258 
7268 
7278 



LDA HSPEED 
STA HTIME 
BEQ ENDIT 



jRESET TireR 
;IF = 8, STIP! 



NOW READ CORf^CT JOYSTICK 

LDX STICK :GET POSITION (ff 
LDA STICK8,X :RIGHT JOYSTICK 
LDY HINVERT ;SHOULD WE IN- 
ENE HOPP jVERT HOR. MOVE 



7288 ;SCR(U DIlffCTIflN ISN'T IlftRTED 
7298 : 



7388 A^S) K8C 

7318 CMP ii88 

7328 ffiQ HLER 

7338 CMP i$84 

7346 BEQ HRIGHT 

7356 BNE ENDIT 

7366 ; 

7376 5SCROLL DIRECTION IS IWERTED 

7388 j 

7398 rapp em mc 

7488 err i«84 

7418 BEQ HLEFT 

7428 QW l$88 

7438 BNE ENDH 

7448 j 

7456 ; SCROLL RIGtfT 

7468 ; 

7476 fffllGHT INC HBIT 

LDA HBIT 

OP ttttX 

BEQ ENDH 

BCC ENDH 

LDA HPOINT 

CWMINX 

BNE H0R5 

WEC HBIT 

BEQ ENDH 

B^£ ENDH 



;SCAN SELECT 
;JOYSTICK BITS 
jMOVE LEFT 

iHOVE RIGHT 



;SCAN SELECT 
{JOYSTICK BITS 
;MOVE LEFT 

;MOVE RIGHT 



7488 

7498 

7568 

7518 

7528 

7538 

7546 

7558 

7568 

7578 

7588 IWR5 DEC HPOINT 

7598 LDA «$FF 

7688 PHA 

7618 BMI HFIX 

7626 H0R55 LDA 8468 

7638 STA HBIT 

7646 BEQ ENDH 

7656 

7668 

7678 , 

7688 fFIX STA TEMP 

7698 PLA 

7788 STA TEWl 

7718 LDX ALINES 

7728 DEX 

7738 LDY I«e8 



INCRB®IT RAH 
'HSCROL' COPY 
IS IT ABOVE 
WLID SCROLL 
LIMIT? 

YES! ARE WE AT 
LEFTMJST MWND? 
NO, CONTINUE 
YES! HALT 
SCRK.L i QUIT 



CONTINUE. 
PERF(»!M BYTE 
SHIFTING U/HFIX 
ROUTM 
RESET 'HSCROL' 
IWMCOPY. 
ALL DONE. 



INC/DEC LMS LO/BYTE OPER««S 



;GET BYTES TO 
; INC/DEC LO-BYTE 
;0F ms OPERANDS 
; GET 8 OF LINES 
;MINUS ONE 
SET INDEX TO 6 



7748 JfIX5 LDA (PAGEsJ,Y ;6ET (PERAM) 



ETC ENDIT ;IF <> 8, STOP! 



7758 

7768 

7778 

7788 

7796 

7886 

7818 

7828 

7836 

7848 

7858 

7868 

7878 

7888 

7898 

7988 

7918 &^DIT BEQ ENDH 

7926 BNE ENDH 

7938 : 



CLC 

ADC TEMP :INC/DEC IT 
STA (PAGES) ,Y jPUT IT BACK 
INY ;CHECK FOR WfWP 
LDA (PAGES) ,Y ;AROWD OF LO 
ADC TEMPI [BYTE INTO HI 
STA (PAGES) ,Y jBYTE. FIXITUP 
INY jADJUST POINTER 
DEX ;DID WE DO ALL? 
BPL HFIX5 ;N0! CONTINUE 
jYESi DECIDE 
;WHO MLLED THIS 
[ROUTINE. RETURN 



LDA TEMP 
BHI HQKS5 
BPL H0R66 



: INTERMEDIATE BiWlCH 



;N0 WTTER WlttT 
;BR^CH TO END. 
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7948 
7958 
79.48 
7978 
7988 
7998 



8818 
8828 
8838 



8878 



8188 
8118 
8128 
8138 
8148 
8158 
8168 
8178 
8188 
8198 
8288 
8218 
8228 
8238 
8248 
8258 
8266 
8278 
8288 
8298 
8386 
8318 
8328 
8338 
8348 
8358 
8366 
8378 



; SCROLL LER 

A-EFT DEC IfflIT 
BPL ENDH 
LDA HPOM 
CHPfttXX 
BNE H0R6 
INC HBIT 

BNE ENDH 
H0R6 INC HPOINT 

LDA KSe 

PHA 

LDA »81 

m. HFIX 
H0R66 LDA HHAX 

STA HBIT 



DEC HSCRK. COPY 
OUT OF RANGE? 
YES! ARE WE AT 
RIGHT BOUND? 
NO! CDNTIf«€ 
YES! HALT 
SCROl A QUIT 

;N0! PERFCWM 
;BYTE SHIFTING 
;U/HFIX RffiJTINE 



jRESET 'HSCROL' 
;IWM COPY 



TIf€ TO ^mm. SCRd-L? 



km DEC VTIME 
M. ENDU 
LDA VSPEED 
STA VTIME 

BEQ om 



DEC. TIMER 
IF 8, aiiT 
RESTWJE TIf€R 
FOR fCXT TIME 
IF = 8, QUIT 



READ CORRECT JOYSTICK 

LDX STICK ;GET JOYSTICK t 
LDA STICK8.X jGET READING 
LDY y I WERT :IS VER. SCROLL 
BNE VOPP ; INVERTED? 

VERTICAL SCROLL ISN'T INVERTED 



mi t$83 
CMP »82 
BEQ VUP 
Cff »81 
KQVDOUN 
M. ENOV 



:SCAN SELECT 
jBITS 
;SCRffl-L UP 

;SCR(H.L DOUN 



VERTICAL SCROLL IS IWERTED 



VOPPANO »83 

cr«> itei 

KQVUP 
CMP Ii82 
BHE ENDV 

SCR(H.L DOUN 

Odom dec VBIT 

BPL ENDV 
LDA VPOINT 
CMP MM 
BNE VERS 
INC VBIT 
BEQ ENDV 
BNE ENDV 
VER5 DEC VPOINT 

LDA vmx 

STA VBIT 
BEQ ENDV 
B>€ ENDV 

8598 ; 

8688 ;SCROLL UP 



8396 
8488 
8418 
8426 
8438 
8446 
8456 
8468 
8476 
8486 
8496 
8588 
8516 
8528 
8538 
8548 
8558 
8568 
8578 



8618 
8628 
8638 
8646 
8656 
8668 
8678 
8688 
8696 
8788 



OUP 



INC VBIT 
LDA VBIT 
CMP VI*»X 
BEQ ENDV 
KC EhflW 
LDA VPOINT 
CWMAXY 
Br£ VER6 
DEC VBIT 



SCAN SELECT 
BITS 

SCRffl-L UP 
SCROLL DOWN 
DOhm^! 



DEC VSCROL COPY 
IN VALID RANGE? 
NO! m£ UE AT 
UPPER BOUND? 
NO! CONTINUE 
YES! STOP 
SCR(H.L 4 fflJIT 

•.ADJUST VERTICAL 
RESET mi COPY 
:0F 'VSCROL' 
;ALL DONE! 



INC iviM cm 

OF 'VSCROL' 
IS IT IN miD 
i^GE? 

NO! ARE WE AT 
LOWER BOUND? 
NO! CONTINUE 
YES! HALT 



8718 KQ ENDV 
8728 BNE BW 
8738 VER6 INC VPOINT 
8748 LDA «$e8 
8758 STA VBIT 
8766 QiW LDA HBIT 
8778 STA HSCROL 
8788 LDA VBIT 
8798 STA VSCROL 



8848 



SCR{H.L & QUIT 

lADJUST VERTICW. 
RESET RAH COPY 
OF 'VSCROL' 
INST<^L COPY 
INTO 'HSCRW.' 

iNST«.L cm 

INTO 'VSCROL' 



8818 ; INSTALL PAGE DATA INTO DLIST 
8828 : 

8836 FIX LDA DLMS ;6ET « OF Uffi 

KQ RTS ;OPCM)ES 

STA COUNT ;HOLD ON TO IT 

LDA 2PAGE ;SAME imiB^R 

PHA ;IS IN MEM. LOC. 

LDA 2PAGE+1 jSAVE \m\B!ER 

PHA ;IS IN MEM. LOC. 

8988 LDX md ;SET INDEX TO 8 
8918 STX XHOLDl 

8928 LDA VPOINT jVERTICAL POINT 

8938 ASL A ;MULTIPLY BY 2 

8948 STA XH0LD2 :HOLD ON TO IT 

8956 LDA SDLSTL :GET LO/DLIST & 

8966 STA ZPA6E ;PUT IN UOi«^EA 
8978 LDA SDLSTL+1 jGET HI/DLIST k 

8988 STA ZPA6EH :PUT IN Umm&t 
8996 HSTUFF LDY XH0LD2 :PAGE INDEX 

9888 ' "* • " "" 

9818 
9828 
9838 
9848 
9858 
9866 
9878 



LDA (PAGES) ,Y :PAGE DATA 
Pm i&m IT 
LDX XHOLDl ;OFFSET INDEX 
LDA OFFSETS ,X :OFFSET TO lUS 
TAY ;HOLD IT 
INY ;PLUS ONE 
PLA ;GET PAGE DATA 
STA <ZWGE),Y ;PUT IN DLIST 
INC XH0LD2 ;INC PAGE INDEX 
LDY XH0LD2 ;GET IT AGAIN 
LDA (PAGES) ,Y :P»M5E DATA 
PHA ;SWE IT 
LDA OFFSETS,X jOFFSET TO LHS 
TAY ;HOLD IT 
INY ;PLUS CWE 
INY :PLUS TWO 
PLA :GET mGE DATA 
STA (ZPAGE),Y ;PUT IN DLIST 
INC XHOLDl ;INC OFFSET INDEX 
INC XH0LD2 ;INC PAGE MEX 
DEC COUNT :ARE WE DONE? 
BNE HSTUFF ;N0! KEEP MING. 
PLA ; RESTORE MEMORY 
STA ZPAGE41 jLOCATION 
PLA ;RESTCH?E MEMORY 
STA ZPAGE ;LOCATION 

;ALL DONE. LATER! 



9898 
9186 
9118 
9126 
9138 
9148 
9158 
9168 
9176 
9186 
9198 
9286 
9218 
9228 
9238 
9248 
9258 
9268 RTS JMP XITVBV 



Coming soon from 

Kyle Peacock: 

a super Assembly 

language game! 



i4?» 
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PAINT 

by The Capital Children's Museum 

ATARI, Inc. 

P.O. Box 61657 

Sunnyvale, California 94086 

48K Disk $44.95 



by Arthur Leyenberger 

Atari is clearly trying to get its act together. The 
recent introduction of Atariwriter, a quality word 
processor with the features most users want and 
need, was the first sign. Next came Family Finan- 
ces, a combination of cash flow analysis and budget 
planner in an easy-to-use format. Now we have 
Paint. 

Developed by the Capital Children's Museum in 
Washington, D.C. and originally published by Res- 
ton, Paint has been repackaged in Atari's familiar 
silver, black and white format, and is now an official 
Atari product. 

Paint is difficult to describe because it will be 
many things to many people. To say it is a graphics 
program would be accurate but an understatement. 
To call it an electronic canvas would be closer to the 
point. Paint is an outlet for artistic expression that 
will let someone of any age go as far as they want to. 

The program is simple to operate and lets the 
budding artist draw on the screen, using the joystick 
as a brush. Lines and shapes may easily be created. 
Areas of the screen can be colored in, patterns and 
textures put anywhere and colors mixed together. 
Also, brush speeds and widths can be varied, and 
mistakes erased. 

Paint includes three separate programs. "Art- 
show" automatically displays in succession images 
that have already been created. This particular pro- 
gram is accessed by both keyboard and joystick. The 
keyboard is used only to initially select this option 
and then for pausing the pictures. The joystick is 
used for selecting the screens to be shown and the 
order in which they will appear. The procedure is 
very simple, and the anticipation of the "show" 
makes it fun. 

The second program included is called "Simple 
Paint." This program provides four different brushes 
and four different colors. Its capabilities are not as 
extensive as the main program, but it is probably 
better suited for younger children. It is so easy to use, 
a youngster can be "up and doodling" in no time. 
This rapid involvement with the program is likely to 
get and maintain the child's interest. 

The third and main program is "Super Paint." 
There are over 24 different commands, requested by 
either a I -letter keyboard input or through a menu 
selection via the joystick. There are built-in func- 
tions for drawing hnes, circles and rectangles. Pure 




colors or textured patterns may be used to fill in any 
enclosed portion of the screen. Two levels of "zoom" 
magnification are also available. 

When "Super Paint" is accessed, the bottom por- 
tion of the screen contains 10 paint-pots. There are 9 
textures and colors plus the one background color. 
The individual paint-pot colors may be chosen by 
either joystick manipulation or keyboard entry. 
Once the desired color is chosen, the joystick is used 
as a painter would use a brush. There are nine differ- 
ent brush types and nine brush widths, for a total of 
81 combinations of brushstrokes. The speed of the 
brush may also be selected to allow the "video artist" 
to become accustomed to the eye-hand coordination 
required to perform delicate maneuvers, such as 
writing in script. 

Paint comes with a 175-page manual that dis- 
cusses everything from computer art to the basics of 
computing. The manual itself could be an ideal 
stand-alone text for art, philosophy or even compu- 
ter science classes. In addition to the specifics on how 
to use the paint program, there are sections on: sug- 
gestions for creative projects, a brief history of art 
down through the ages, diverse examples of compu- 
ter art created by professional artists using a variety 
of computers, computer imaging, and even a tutorial 
on how computers work. A glossary and biblio- 
graphy are also included. The book is written in a 
lighthearted first person style, clearly presented and 
enjoyable. 

As I said at the beginning of this review, it is 
difficult to describe Paint because of its flexibility 
and extensive features. Perhaps the best description 
is that Paint is Paint. In any case, the product is an 
excellent value. The best part of all is that, unlike the 
kind of paints I used when I was a child, there is no 
mess to clean up. D 



Great Software • Great Service •JheotPrices 




from Atari 



Pole 
Position 



ROM Cart. $36.88 

Not since the release of their Pacman car- 
tridge has there been such great anticipation 
for a game program from Atari. Expectations 
increased though months of pre-advertising 
without product delivery. Well, Pole Position is 
out now and it's well worth the wait. It's an ex- 
citing rendition of the coin-op game that was 
one of the two most popular (the other is 
Q*Bert)of 1983. 

All Atari programs including fvts. Pacman, Dig 
Dug, Qix and Donkey Kong in stock and 
available at similar savings. 

from Broderbund 




Lode 
Runner 

48K Disk $22.88 



Runner-up (to Miner 2049er) as the outstan- 
ding original arcade game of 1983 in our in- 
house poll. 150 thrill-packed levels plus a 
game generator feature which permits you to 
design and play your own levels. If you're star- 
ting to "burn out" on arcade games, this pro- 
gram will rekindle your enthusiasm. 
All Broderbund Software including The Ar- 
cade (Machine, Operation Whirlwind and 
David's Midnight Magic in stock and available 
at similar savings. 




from Electronic Arts 



Pinball 

Construction 

Set 

48K Disk $27.88 



Steve Wozniak of Apple Computer Corp. has 
called Bill Budge's Pinball Construction Set 
"the best program ever written for an 8-bit 
computer." You can build your own pinball 
machine from the parts provided — bumpers, 
flippers, targets, etc. — and, then, save and 
play them. You can also control the machine's 
logic, affecting the scoring, the sound, or even 
the amount of gravity inside the machine! 
All Electronic Arts programs including Ar- 
chon, M.U.L.E. and Murder on the Zinderneuf 
in stock and available at similar savings. 



from Parlcer Brothers 




from Synapse 

Blue 
Max 



32K Tape or Disk $22.88 

The premier Atari software house brings you 
still another fabulous program. As a member 
of the Royal Air Force, you will command a 
biplane fighter/bomber and will battle the Axis 
on the ground and in the skies. Excellent 
scrolling and 3-D graphics. 
All Synapse programs including Rainbow 
Walker, Encounter and Pharoah's Curse in 
stock and available at similar savings. 
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Q*Bert 



ROM Cart. $33.88 

it's everybody's favorite arcade chatacter of 
1983. It's lovable Q'Bert. This is the official 
Atari cartridge version of the smash coin-op 
hit. Excellent graphics and game play. 
All Parker Brothers programs including 
Popeye, Super Cobra, Frogger and Astro 
Chase in stock and available at similar 
savings. 




from Microprose 

Solo 
Flight 



48K Tape or Disk $22.88 

The first real flight simulator for the Atari. 
Features include: color, three-dimensional 
graphics: dual radio navigation instruments; 
full-feature, actual configuration instrument 
panel; multiple air navigation charts; multiple 
airports and runways; day, night, cross-wind 
and instrument flying scenarios; takeoffs and 
landings; emergency procedure practice; and 
(as they say) much, much more. An outstan- 
ding program that realistically simulates the 
thrill and challenge of flying. 
All Microprose Software including NATO Com- 
mander, Hellcat Ace and Floyd of the Jungle 
in stock and available at similar savings. 



NEW RELEASES 




Save Big on a Dozen Recent Releases! 1 


Bank St. Writer (Broderbund) D 


$44.88 


Eagles (SSI) 


$27.88 


Enchanter (Infocom) D 


$34.88 


Infidel (Infidel) 


$34.88 


LOGO (Atari) R 


$74.88 


Oil's Well (Sierra On-Line) R 


$23.88 


Pitstop (Epyx) R 


$27.88 


Pianetfall (Infocom) D 


$34.88 


Spellunker (Micrographic) D 


$27.88 


Trains (Spinnaker) 


$27.88 


Ultima III (Origin) 


$39.88 
$24.88 


Zaxxon (Datasoft) T&D 



SUPERSPECIALS 




Save 33% to 43% on these Classic Programs! i 


Baja Buggies (Gamestar) T&D 


$19.88 


Bandits (Sirius)D 


$19.88 


Castle Wolfenstein (Muse) D 


$18.88 


Choplifter (Broderbund) D 


$22.88 


Crush, Crumble & Chomp (Epyx) T&D 


$18.88 


Pacemaker (Spinnaker) D 


$22.88 


Jumbo Jet Pilot (Thorn-EMI) R 


$29.88 


Labyrinth (Broderbund) T&D 


$18.88 


Mastertype (Lightning) D 


$24.88 


Serpentine (Broderbund) T&D 


$19.88 


Soccer (Thorn-EMI) R 


$29.88 


Visicalc (Visicorp) D 


$139.88 



Prices good thru Mar. 5, 1 984 



Call or write for FREE CATALOG 
(specify Atari) 



Mail order prices do not apply 
at our retail location.. 
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BOOTCAMP 

AN ASSEMBLY LANGUAGE 
TUTORIAL COLUMN 



by Tom Hudson 



I hope all Boot Camp readers have been practic- 
ing their addition, subtraction and X-Y register 
manipulations, because we're moving on to bigger 
and better things. We'll be dabbling with compari- 
sons, branching and indexing this month, giving you 
even more tools to work with in assembly language. 

First things first. 

Last month, I gave you a simple data manipulation 
problem: 

PROBLEM: Write a program which starts 
with A=$03, X=$07 and Y=$14. Then write 
the code necessary to change these registers so 
that when the program ends, the registers are 
A=$07, X=14 and Y=$03. 

As most readers know, there are hundreds of ways 
to solve any programming problem, and this one is 
no exception. The objective is not just to solve the 
problem, but to do it in the most efficient way possi- 
ble. I'll show you two ways to solve the above prob- 
lem, and discuss the pros and cons of each. 



10 




- 


STfl 


AHOLD 


20 
38 






5TX 
5TV 


XHOLD 
YHOLD 


40 






LDA 


XHOLD 


58 






LDX 


YHOLD 


60 






LDV 


AHOLD 


70 






BRK 




80 


AHOLD 


«=»+l 


90 


XHOLD 


»=»+l 


0100 


YHOLD «: 


:«+! 


0110 




.END 



Figure 1. 

Figure 1 shows an easy-to-understand, straight- 
forward solution to our problem. It stores each regis- 
ter in hold areas, then loads the registers from the 
appropriate hold area. Lines 10-60 perform the regis- 
ter exchange function, and Lines 80-100 set up the 
one byte storage areas. 



This solution is very easy to understand by simply 
looking at it, and is a solution that most beginners 
would probably use. However, from a memory usage 
standpoint, this routine requires 22 bytes. We can 
do the same exchange in only 10 bytes with the 
routine in Figure 2. 



10 




STY HOLD 


20 




TAY 


38 
40 




TXA 

LDX HOLD 


50 




BRK 


60 


HOLD 


«r«+l 


70 




.END 



Figure 2. 

As you can see, this code uses two of the transfer 
instructions, TAY and TXA, to eliminate two of the 
temporary storage areas used in Figure I. Since the 
transfer instructions use only one byte versus the six 
bytes for a LDA and STA instruction, this version of 
the exchange code uses less than half the memory of 
Figure 1. 

Although we gain memory savings by using the 
code in Figure 2, we do lose some readability. Let's 
say you use the routine in Figure 1 in a program and 
don't look at the program for a year. If you need to 
make a change, it's easy to see what the routine does. 
The code in Figure 2 may not be so easy to decipher. 
Since you never know when you'll have to make a 
change to a program, it's a very good idea to COM- 
MENT your code heavily, in order to let yourself 
know what you were doing. 

What if...? 

The great thing about computers is that they can 
perform calculations very quickly. Without the abil- 
ity to make decisions, though, a computer would be 
almost useless. 
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For this reason, the 6502 microprocessor in your 
Atari is equipped with 14 comparison instructions. 
These instructions are designed to test the values 
contained in the Accumulator, X and Y registers. 
Each of these instructions compares the desired reg- 
ister with the memory byte specified in the operand 
and sets the 6502 status flags accordingly. 

The Accumulator comparison instructions are: 

CMP #n (IMMEDIATE) 

CMP nn (ABSOLUTE) 

CMP n (ZERO PAGE) 

CMP (n,X) (PRE-INDEXED INDIRECT) 

CMP (n),Y (POST-INDEXED INDIRECT) 

CMP n,X (ZERO PAGE INDEXED X) 

CMP nn,X (INDEXED X) 

CMP nn,Y (INDEXED Y) 

The X register comparison instructions are: 

CPX #n (IMMEDIATE) 

CPX nn (ABSOLUTE) 

CPX n (ZERO PAGE) 

The Y register comparison instructions are: 

CPY //n (IMMEDIATE) 

CPY nn (ABSOLUTE) 

CPY n (ZERO PAGE) 

All comparison instructions affect only three sta- 
tus flags. These are the SIGN, ZERO and CARRY 
flags. 

What happens in a comparison? Internally, the 
computer will subtract the operand byte from the 
register contents, set the status flags just like a sub- 
tract, but will NOT alter the register. Simple, right? 
Let's look at a few examples. 

Assume the accumulator contains $45, and we 
execute the instruction: 

CMP #$31 

Inside the computer, the faithful 6502 would sub- 
tract $31 from $45 and obtain the following result: 

$45 =01000101 
$31 =00110001 

10 10 0= $14 
Since the result is not zero, the ZERO flag is set to 
0. The SIGN flag is set to bit 7 of the result, which is 
0. The CARRY flag is set to 1, since no borrow was 
required. The CARRY flag is always the inverse of 
the borrow status. 

By looking at the result of this comparison, we can 
say that the accumulator is NOT EQUAL to $31, 
since the result of the compare was not zero. We can 
also say that the accumulator is GREATER THAN 
$31, since the CARRY flag is set. 

Assume the X register contains $7F and we want to 
compare it with $7F. We would use the following 
instruction: 

CPX #$7F 



The subtract operation inside the 6502 would 
look like: 

$7F =01111111 
$7F =01111111 



00000000= $00 
The result is zero, so the ZERO flag is set to 1 . The 
7 bit of the result is 0, so the SIGN flag is set to 0. No 
borrow was required, so the CARRY flag is set to 1. 
After this comparison is complete, we can con- 
clude that the register is EQUAL to $7F because the 
ZERO flag is set. 

Assume the Y register contains $ 12 and we want to 
compare it to $4E. We would use the following 
instruction: 

CPY #$4E 
The subtract operation inside the 6502 would 
look like: 

$12 =00010010 
$4E =01001110 



110 10 0= $04 

Before you get confused with the above binary 
operation, remember how subtraction works in base 
10. If the number being subtracted (minuend) is 
larger than the subtrahend, a BORROW is necessary 
from the next higher digit. This case of the compare 
requires a borrow. 

In this case, the ZERO flag will be set to zero, 
indicating a non-zero result. The SIGN flag will be set 
to the contents of bit 7 of the result, which is a 1 . The 
CARRY flag will be set to 0, the inverse of the 
borrow status. 

From these flags, we can conclude that the Y regis- 
ter is less than $4E because the CARRY flag is cleared 
(0). 

That's all there is to using the compare instruc- 
tions. They work the same way, regardless of the 
addressing mode. 

Comparisons are j ust about worthless without the 
ability to do something based on the result of a 
comparison, so next we'll look at the 6502 branch- 
on-condition instructions. 

Branches conveniently located. 

So far, the only means of transferring program 
execution we've looked at has been the JMP (JUMP 
TO LOCATION) instruction. Now we'll look at the 
8 branch-on-condition instructions used by the 
6502. The 8 formats are: 



BCSn 

BCCn 

BEQn 

BNEn 

BMIn 

BPLn 

BVCn 

BVSn 



(BRANCH 
(BRANCH 
(BRANCH 
(BRANCH 
(BRANCH 
(BRANCH 
(BRANCH 
(BRANCH 



IF CARRY = 1) 
IF CARRY = 0) 
IF ZERO = 1 ) 
IF ZERO = 0) 
IF SIGN = 1) 
IF SIGN = 0) 
IF OFLOW = 0) 
IFOFLOW= 1) 
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Observant readers may note that the operand of 
the branch instructions consists of only one byte. As 
you may recall, the JMP instruction was able to jump 
to any memory location because its operand con- 
sisted of two bytes. Branches are another story al- 
together. 

With only one byte in their operands, branch 
instructions are only able to branch backward 128 
bytes or forward 127 bytes. This is known as RELA- 
TIVE addressing. Fortunately, most assemblers will 
calculate the distance of a branch for you. However, 
if a branch distance is more than the branch limit, 
you'll have to restructure your branch by using a JMP 
or multiple branch instructions. 

Let's look at a few typical branch applications. 
Figure 3 shows the comparison/branch structure 
for the condition: 

IF X = 7 THEN GOTO START 



CPX It? 
BEQ START 



START 



Figure 3. 

As you can see, the CPY instruction is followed by 
a branch instruction. In this case, if the X register is 
EQUAL TO 7, the program will go to the location 
labeled START. 

For the condition; 

IF A <> 52 THEN GOTO POINT A 
we would use the code in Figure 4. 



CMP »52 
BNE POINTA 



POINTA 

Figure 4. 

Multiple conditions may require some extra 
effort, such as the condition: 

IF Y <= 242 THEN GOTO MAIN 
The code for this condition is shown in Figure 5. 



CPY It242 
BEQ MAIN 
BMI MAIN 



which set the status flags just like a compare, a zero 
result in an operation will set the proper branch flags. 
Look at the following code: 



LDA BVTEl 

SEC 

SBC BYTE2 

CMP ite 

BEQ ZERO 



The CMP #0 instruction is not necessary, since the 
SBC operation sets the flags for us! The optimized 
code would look like: 

LDA BYTEl 

SEC 

SBC BYTE2 

BEQ ZERO 

Remember, branches can be done anywhere the 
status flags are altered, giving you incredible flexibil- 
ity in program design. 

"I wish I was indexing. . . " 

Now we can start combining some of our new 
programming tools to do meaningful work. "With the 
added function of branching, we can start using the X 
and Y registers as counters and indexes. 

Indexing was discussed in the second installment 
of Boot Camp in ANALOG #14, so I won't repeat 
all the basics. The first example I'll show is the use of 
the X and Y registers as counters. 

Let's say we want to execute a section of code ten 
times. Since the program uses the Accumulator and 
X register in the loop, we'll use the Y register as a 
counter to control the loop. 

In order to use the X and Y registers as indexes, we 
have been given four instructions: 

INX (INCREMENT X BY 1 ) 

INY (INCREMENT Y BY 1) 

DEX ( DECREMENT X B Y 1 ) 

DEY (DECREMENT Y BY 1 ) 

These four instructions simply add or subtract one 
from the X or Y registers, allowing you to use the 
registers as indexes easily. These registers affect the 
ZERO and SIGN flags. 

Figure 6 shows the code necessary to perform a 
loop ten times. 



LOOP 



LDY ttlO 



MAIN 



DEY 

BNE LOOP 



Figure 5. 

These multiple conditions are really quite easy, 
you just have to use the instructions provided. 

The nice thing about branch instructions is that 
you don't have to use them after a compare instruc- 
tion. You can place them anywhere in a program. For 
example, in addition or subtraction instructions, 



Figure 6. 

This is a very simple counter example. Note that, 
in this case, we have set up the Y register as a count- 
down counter, from 10 to 0. After the DEY instruc- 
tion is executed, we BNE LOOP. If the Y register 
decremented to zero, the program will not take the 
branch, and the loop is finished. No CPY #0 instruc- 



ISSUE 16 



ANALOG COMPUTING 



PAGE 111 



tion was needed, since the DEY instruction set the 
zero flag for us. 

We could have used the Y register as a count-up 
counter, from to 10, as in Figure 7. 



LOOP 



LOY ttO 



INY 

CPY ttlO 
BNE LOOP 



Figure 7. 

Note that in the count-up example an extra com- 
pare is needed (CPY #10) to see the Y register has 
reached ten yet. If it has not, the program will take 
the BNE LOOP branch to continue looping. 

Using the X and Y registers for indexing is similar 
to using them for counters. The main difference is 
that the register is used inside the loop to point to 
varying places in memory. Figure 8 shows an exam- 
ple of indexing that will copy the six bytes of 
TABLE 1 into TABLE 2. 



le 


LDK US 


20 


COPY LDA TABLE1,K 


30 


STfl TflBLE2,K 


40 


DEX 


50 


BPL COPY 


60 


BRK 


70 


TABLEl .BYTE 10,20,30,40,50,60 


80 


TABLE2 »=»+6 


90 


.END 



Figure 8. 

The program in Figure 8 begins with the X regis- 
ter set at 5. Remember, when referencing individual 
elements in a table, the indexes for the elements range 
from zero to one less than the number elements. In 
this case, the element numbers range from 0-5. As 
the loop (labeled COPY) executes, each byte of 
TABLEl will be moved to TABLE2. This looping 
will continue until the X register is decremented past 
zero, where it will equal 255 due to wraparound. At 
this point, the SIGN flag will be 1, indicating a nega- 
tive number. When this happens, the BPL COPY 
instruction will be ignored and the looping will end. 
Try assembling this routine into memory and tracing 
its execution. 

What if we want to copy TABLEl into TABLE2 in 
REVERSE ORDER? This is a nifty little problem 
that will help you understand X-Y indexing more 
thoroughly. Try writing the code necessary, using as 
many memory locations as necessary. Next issue, I'll 
show a way to do this with only three changes to 
Figure 8. 

No more time. 

I had wanted to cover multi-byte math this issue, 
but due to space limitations I'll have to delay this 
until next issue. Until then, play around with com- 
parisons and branching, and try to find a solution to 
the above problem. D 



A 



OuinTech 



A 



TIRED OF REPETITIOUS COMPUTER GAMES? 

BORED WITH WAITING FOR YOUR SHOT 

AT THE ALIENS? 

Enter a magical garden of strategy — 
a new generation of game-playing with 

DOWN • draw a maze of paths 

THE • attempt the "antler dance" 

GARDEN 'tailor all game attributes 

PATH • place and cast spells 

• each game a unique creation of the player(s) 
• simultaneous action against the computer 
or a friend 

• skill levels from apprentice to arch-wizard 



•MACHINE LANGUAGE 

' ATARI 800® 48K REQUIRED 



OUTSIDE ILLINOIS 
800-621-0660 



DISK 



34.95 



IN ILLINOIS 
800-572-0440 



Illinois residents add 6% sales tax. 

Allow 3 weeks for personal checks. 

$3.00 shipping and handling. 

QuinTech Systems, Inc. 

1 271 Dundee Rd., Suite #44B, Buffalo Grove, IL 60090 

®Atari 800 is a registered trademark of Atari, Inc. 




1984 
TAX PLANNER 



ATARI® 400/800/XL 

DON'T GUESSTA-MATEI 

Now you can instantly know your exact tax situation 
and manipulate It throughout the year. 

The TAX PLANNER allows you to plan and update your 
tax position throughout the year. Do you want to know 
the exact tax Impact of buying a home, selling stock, 
contributing to an IRA, buying rental property etc. . .? 
Can also be used to estimate quarterly tax payments. 

The TAX PLANNER Includesthese schedules and more 

Schedule G - Income Averaging 
Itemized Deductions Schedule W - Married Deduction 
Interest & Dividends Form 2106 - Employee Expense 
Business Income Form 2119 - Sales of Residence 

Capital Gains/Losses Form 3906 - Moving Expense 
Supplemental income Form 4684 - Casualties & Thefts 



Form 1040 
Schedule A 
Schedule B 
Schedule C 
Schedule D 
Schedule E - 



$49 



^§1 



MiCCA ENTERPRISES 

3611 Monument 
Round Rock, TX 78664 



Requires 48K and Disk Drive 

VjSA/MC/ChecWMoney Order 

Deaier inquiries Weicome - Texas Residents add 5% Saies Tax 
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FAST 
REPEAT KEY 



16K Cassette or Disk 



by Sammie J. McCaa, Jr. 



While working on a rather large machine-language 
program, I became impatient with the long delay in 
the Atari keyboard's key repeat function. I found 
myself pressing the CTRL/arrow keys to move 
ahead, instead of just holding down the space bar and 
waiting for the repeat. So I put away what I was doing 
and pulled out my operating system manuals to 
figure out a way to get around the problem. 

I discovered that ths OS uses a variable called 
SRTIMR at location 555 decimal ($22B hex) to 
determine how long to wait before starting the repeat 
function. It works liks this: Every time you press a 
key, the keyboard interrupt routine stores a value of 
30 (for a 30-jiffy or 1/2 second delay) into 
SRTIMR. This location is then decremented every 
l/60th of a second. If the key is still being pressed 
when SRTIMR reaches zero, the OS will repeat the 
key until you let it go. All you have to do to change 
the repeat delay is to control the value that is stored 
into SRTIMR when a key is first pressed. 

I began by writing a program that copied the OS 
keyboard interrupt routine from ROM into RAM, 
changed the value stored into SRTIMR and, of 
course, altered the interrupt vector to point to the 
new routine. It worked, but I wasn't too sure if it 
would work on other versions of the OS (I have an 
old Atari with the original "A" ROMs). I went down 
to a local department store to try my routine on a 
1200XL. The program didn't stand a chance. Talk 
about incompatibility! Not only is the 1200 inter- 
rupt handler in a different ROM location (this 
wasn't really a problem, since I could check the 
"reserved" interrupt vector to find out where it 



was), but it was three, yes, three times as long as the 
handler in the 400/800 OS! 

After a few more attempts, including one that 
tried to determine which OS you had by checking 
the size of the interrupt handler, I finally got it right. 
The current version continuously checks SRTIMR 
with a small custom vertical blank interrupt routine. 
Whenever SRTIMR gets bigger than I want it to be, I 
just change it. Simple, right? 

I got tired of re-initializing the routine every time I 
hit SYSTEM RESET, so out came the manuals again. 
I discovered how to trick Atari into believing there 
has been a cassette boot, thereby enabling me to steal 
the system long enough to keep my fast repeat-key 
routine active. The routine is small enough (only 37 
bytes) to safely fit at the bottom of the 6502 hard- 
ware stack on page 1. This keeps page 6 free for other 
machine-language routines. 

I've included two versions of the program. List- 
ing 1 is the BASIC loader, while Listing 2 is the 
assembly-language source code. Both versions are set 
up for use with a disk drive. To use the routine with a 
cassette, change the third byte in Line 120 of the 
BASIC listing from 3 to 2, or Line 140 of the assem- 
bly listing from LDA #3 to LDA #2. 

To execute the BASIC loader, just type it in 
CHECK it with D:CHECK1 or C:CHECK and RUN 
it. The assembly version requires a GlOO from the 
Editor/Assembler cartridge's DEBUG mode. I 
selected a new key delay value of 10 (1/6 of a 
second). By changing the PAUSE variable in the 
assembly version (Line 270) and re -assembling, you 
can experiment with different time delays. D 
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BASIC Listing. 

i2 5IH * REPEftT KEY BASIC LOADER 
TO SIS * ^^ SAHHIE J. MCCAA, JR. 

48 FOR RAM=256 TO 292 

IS S^6E Sn'^iE*"^^ RAM, BYTE :MEXT RAM 
60 POKE 255,184:REN * PLA FOR BA5IC 
II !f=H15i?^5'=«EM » IMIT ROUTINE 
88 ? "FAST REPEAT INSTALLED" 
98 END 

f?2 R5I5 "8,22,162,1,169,6,32,92 
H2 E5I? 228,169,8,133,2,169,1,133 
112 rSTS 5-169,3,133,9,96,173,43 
fJo S5I5 2,281,11,144,2,169,18,141 
148 DATA 43,2,76,95,228 



CHECKSUM DATA 
(See pp. 20-24.) 

if-'*5I6 228,68,255,869,896,398,347,31, 
259,683,917,523,923,626,7887 



Assembly Listing. 



8118 

8138 
8148 
8158 



8178 
8188 
81 ?8 
8288 
8218 
8228 
6238 
8248 
8258 
8268 
8278 
8288 
8298 
8388 
8318 
8328 
6338 
8348 
6358 
6368 
8378 
8388 
83?8 



MIMIIIIf IIIMMMMMM 

REPKT KEY 
BY SfiHHIE J. 1«CAA, JR. 

fm.m CGNPiiriNG m 



IIIMIIMMIMIIIMMIIII 

" EQUATES «» 

§O0T = $89 
CASINI = $82 
mm = $822B 
SETV»; = $E45C 
SYSVBV = $E45F 
PAUSE = 18 
ORG = $8188 



«= ORG 



Init 



8418 
8428 
8438 



LDY #UAITi255 ; CmNGE IWEDIATE 

LDX #1*^11/256 : VERTICAL BUM 

LDA 16 ; OeCTOR 

JSR SE7VBV 

LOA IORa255 ; TRICK COMPUTER 

STA CASINI I MO THINKING 

LDA IORG/256 ; THERE HAS BEEN 

STA CASINI +1 ; A CASSETTE BOOT 

LDA 13 

STA BOOT 

RTS 



6458 
6468 
847B 



iJait 



6498 
6588 
6518 
6528 
6538 
8548 



LDA SRTIMR ; GET TIMER UALIK 
CMP IPAUSEtl 5 IS IT > PAUSE? 
BCC STORE 

I MAKE IT = PAUSE 



LDA JIPAUSE 
STORE 

STA SRTIMR 



SAVE NEW RESULT 



JMP SYSVBV 5 (m RETURN 



COMSTAR AIR* SHIPPING WITHIN 2 DAYS 



AATARI 

MOVIE MAKER (D) $ 52 

MONKEY WRENCH II 52 

MICROBITS MODEM (lOOOC) (C) 129 

MICROBITS INTERFACE (1150) 83 

VALFORTH (D) 24K 45 

ALOG PAGEWRITER (0) 32K 34 

ALOG DISPLAYMAKER (D) 34 

ALOG MAILLIST (D) 34 

FANCY WRITER (D) 48K 29 

NEWPORT PROSTICK II 23 

ALIEN VOICE BOX II (D) 40K 119 

GAMESTAR FOOTBALL (DJ) 24K 21 

GAMESTAR BASEBALL (DJ) 32K 21 

BAJA BUGGIES (DJ) 16K 21 

ELEPHANT DISKS (10) 21 



C = CARTRIDGE D = DISK T = CASSETTE 



MOST ITEMS 



COJSaSlZR TO ORDER CALL: (805) 964-4660 

Kion unii icTCD «iic or send check or money order. VISA. MC add 

oi^u HULLiMtH AVt. 304 shlpplnp-JZ (or software (call (or 

hardwarel- Call! add 6% tax. COD add $2.50. 



SANTA BARBARA, CA 93111 



DYNAMIC INNOVATIONS 

PRESENTS 

RAM JAMMER 



Now. you cm develop and debug your own canridge sollware safely 
quickly and permancnlly wilh Ihe DYNAMIC DUO! 

DYNAMIC DUPLICATOR - The DYNAMIC DUl'l ICATOR is a 
machine language program thai permits vou 10 examine and saieanv 
«K/I6k, right or left hand cartridge to disk or cassette. 
RAM .lAMMER - THE RAM JAMMER is a sophisticated elec- 
tronic circuit that is easily installed into your I6K/4SK RAM module 
in application, the RAM JAMMER allows you todcvelop and dehuc 
(by Ihc DYNAMIC DUPLICATOR) internally-protected cartridge; 
by converting RAM into swilchable. volatile ROM. 

For proper execution, the RAM JAMMER and the DYNAMIC 
DUPLICATOR should be used together. Plus, your system must have 
48 K. 

Go for it! Send $54.95 plus S2 .shipping and handling. Money orders/bank 
cheeks accepted - VISA and Mastercard add 4^ . Specify memory size type 
disk or cassette. We sell RAM board with pre-insialled RAM JAMMER units' 
For disk back-up and custom formatting, call us for the best price on the 
"chip". 

Sound interesting' For more information and a complete price list, contact: 



(309) 444-9557 



ULTIMATE MENU 

FOR BINARY LOADS 

• Speeds Binary Loads 

• Doesn't Need DOS 

• Saves 75 Sectors 

• Will Load Saved Cartridges 
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Why spend $200 

for a spreadsheet when you can buy 

HOME-CALC for under $40 




Available for all Atari computers 

See your dealer or order direct 

Phone orders— (215) 825-4250 

HOME-CALC cassette— $29.95 

HOME-CALC diskette— $39.95 

Shipping and handling 

C.O.D. and credit card add SI. 50 

6% sales tax (PA, NJ residents only) 

TOTAL 



*Car Expenses 

*Budgets 

*Finances 

* Income Tax 

* Investments 
*Sports Records 
*Payment Schedules 
*Stocl< Portfolios 
*Expense Accounts 



Cassette 
Diskette ■ 



S29.95 
S39.95 



Home-Calc is a powerful, inexpensive spreadsheet for 
home and business calculations. You can enter 
numbers, labels, or fomulas in each cell. Home-Calc 
allows you to add, subtract, multiply, divide, use the 
exponential guide, sum, and recalculate. The diskette 
version also features a replicate command. Maximum 
spreadsheet size is 510 cells for the 48k diskette ver- 
sion. (Disk version requires 24k memory; cassette 
requires 16k memory.) 



S2.00 



Name _ 
Address 

City 

Phone _ 



.State. 



.Zip. 



nMC#_ 
nvisA#_ 

Exp. Date. 



fresh ideas in Software . 



Atari 400/BOO/I200 are trademarl<s 
of Atari, Inc. 

Dealer, Distributor, and 
Representative inquiries invited 




^'COMPUTER PRODUCTS INC, 
1100 E, HECTOR ST. 
WHITEMARSH, PA. 19428 



r24i 

'HOUR\ 

'SHIPPING^ 



BACKUP HARDWARE & SOFTWARE 



THE HAPPY™ 810 ENHANCEMENT KIT 
WITH WARP SPEED SOFTWARE 

BACK UP ANY ATARI'" DISK 



''24^ 

^HOUR\ 

'shipping'* 



CALL FOR SPECIAL LOW PRICE 



RIGHT-WRITE 

This device will allow you 
to write to side 2 of any 
disk. Install this box to your 
Atari'" 810 disk drive in 5 
minutes. Just plug in one 
cable — no cutting or sol- 
dering required. 

Push the button and a red 
led will light, allowing you 
to write a disk without 
notching out a hole in the 
disc. 

Easy plug-in installation 
instructions included. 

Fully tested and assembled. 



ONLY 



$2495 



THE FILE SENDER 

Modem Program. At last, a 
user friendly program that will 
send and receive basic and bi- 
nary \\\es up to 200 sectors long 
and download them to your disk 
drive. 

The only Modem Program you 
will ever need or want 
Special features the others don't 
have: 
1)See disk directory in 
terminal mode 

2) Send and receive Binary files 

3) Save text files to disk 

4) Very user friendly 

This program comes on disk 
and will work with any Modem 
that uses the Atari'" 850 inter- 
face. 

Excellent documentation sup- 
plied. 

SPECIAL 



$3495 



NOW AVAILABLE 
THE ULTIMATE BOOK 

On copyguarding. Master code/ 
cracker reveals all. Hardware 
and software tricks. Informative 
book and disk with examples 
and programs. 



ALL FOR 



$2495 



THE PILL™Wearethedis- 

tributors for this famous product 

A cartridge that turns RAM into 

ROM. 

Call for information. 



ONLY 



$6995 



PHONE ORDERS: 

(516) 467-1866 

PRODUCTINFO: 

(516) 588-6019 



We are working on new products 

and software. 

For information call (516) 588- 

6019. 

Add $5 for Shipping & Handling. 



We accept COD. orders. 



GARDNER COMPUTING COMPANY r^TLrr^"' ''^"'' 



P.O. BOX 388, HOLBROOK, N.Y. 11741 



in 24 hours. 

(Personal checks will have 

to clear before shipping.) 
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OIL'S WELL 

by Thomas Mitchell 

SIERRA ON-LINE 

Sierra On-Line Building 

Coarsegold, California 93614 

16K Cartridge $39.95 



DROL 

by Aik Beng 

BRODERBUND SOFTWARE 

17 Paul Drive 

San Rafael, California 94903 

32K Disk $39.95 



ORC ATTACK 

by Dean M. Lock 

THORN-EMI VIDEO 

1370 Avenue of the Americas 

New York, NY 10019 

16K Cartridge $39.95 



ing implement on a retractable tether. You must man- 
euver your drill bit through a network of subterranean 
oil pipes, consuming units of energy and avoiding for- 
eign objects flushed into the network to hinder your 
progress. The goal is to successfully navigate the net- 
work without colliding with the obstacles, and reach 
the lower segments of the screen. 

Simple as it may sound, Oil's Well is very difficult, 
offering fast play, good graphics, and that certain some- 
thing that makes you want to keep playing long after 
many other games have lulled you into boredom. 

If the scenario of Oil's Well isn't unusual enough 
for you, then Broderbund's Drol is the ticket. This 
game puts you into a topsy-turvy fantasy world of 
screeching witch doctors, renegade vacuum cleaners, 
bounding monsters and plants with a taste for murder. 
You are the heroic soul sent into this bizarre never- 
never land on a desperate rescue mission. Equipped 
with an anti-gravity back pack and a gun that blasts 
monsters to oblivion with "reality pellets," you must 
comb a scrolling maze in search of a hostage family held 
prisoner by an evil witch doctor. Battling monsters and 
dodging weapons hurled at you by the witch doctor in 
your quest, your job is to scoop up the captives as they 
guilelessly wander around. 



by Patrick J. Kelley 



With the mid-winter doldrums upon us, many will 
be looking for interesting new games to divert and 
entertain until spring's kindly thaw. This review will 
cover three possible candidates, catering to a wide range 
of tastes. 

The first is Oil's Well from Sierra On-Line. Ini- 
tially, the cartridge may appear to be just another varia- 
tion on the "gobble the dots" theme, but this arcade- 
style game offers action that is both truly different and 
challenging. Your joystick controls a PacMan-like drill- 










^.iyi,ri.i^yy,wii,.>irfiirir,#rtri 




Oil's Well. 



Drol. 



Besides the mother, daughter and little boy that you 
must find, you are also in search of the family pets (a 
lizard and a crocodile), also imprisoned by the heartless 
blackguard. This aspect of the game I find especially 
charming; the pets float through the maze smiling happ- 
ily and zooming about on their own private jet packs or 
"beanie belts." (This is reminiscent of a scene in Wil- 
liam Peter Blatty's film The 'Ninth Configuration, which 
also featured characters ambiguously floating by, pro- 
pelled in a similar manner.) Drol is the most light- 
hearted of these three games, and by far the best 
thought-out. It also features refreshing sound effects 
and some of the best pseudo-3D graphics I've ever seen. 
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Last, but by no means least, is Ore Attack by Thorn 
/EMI. Attack is easily the most violent and gratui- 
tously satisfying shoot-'em-up on the market today 
(although "drop-'em-down" might be a more accurate 
label). In Ore Attack, you are the sole defender of a 
castle besieged by hellish Ores, whose sole purpose is to 
scale the walls and invade. You prevent this by hurtling 
chunks of mortar down into the rampaging Ores, split- 
ting their scaling ladders and soft Ore skulls. A direct 
hit on an enemy Ore rewards you with a sickening 
thunk and a splash of blood. 

As the invasion progresses, so do your methods of 
defense. Periodically during each attack wave, you can 
make use of a cauldron of boiling oil, which horribly 
(and probably painfully) eradicates the arrogant Ores. 
Bonus levels force you to deal with a necromancer who 
calls forth spirits of the dead, an alchemist who hurls 
lightning bolts, or a horde of fast moving and deadly 
spiders. 

Ore Attack is essentially an endurance contest in 
which you annihilate as many Ores as possible before 
they scale the wall and send your severed head over the 
side. The graphics are adequate and, well... graphic. 
It's great if you want to get rid of the frustrations of a 



hard day, or if you are a budding sadist at heart. So take 
some of your remaining holiday money and ask your 
local computer store to show you Oil's Well, Drol 
and Ore Attack. Whatever your choice, you won't be 
sorry. D 







y 






Ore Attack. 



J 
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MAILORDER 

P.O. BOX 3354, CHERRY HILL. N.J. 08034 



A 



TOLL FREE C800) 992-3300 



ATARI 



FOR ORDER 
ONLY 



FOR INFORMATION & N.J. CALL (609) 596-1234 



[ATARI HOME COMPUTERS 

Atari 600 XL Gall 

'Atari 800 XL Gall 

1050 Disl< Drive Gall 

Communicator $135 



1010 Recorder «78 SOFTWARE 

'"^OP'int^' *239 ,3,j„„,„, 525.95 STAR HAiGEiiS »30.95 

'025 Printer '395 centipede '30.95 atari writer »69.95 

1027 Daisy Wheel Printer '271 caverns of mars ^30.95 1 mg [jug >34.95 

830 Modern *99 oefenoer «3fl.95 , aix «3«.95 

CX419 Bookkeeper *'«!>[ tissue command »25.B5 paikt «3«.95 



Communicator I 



«135 



.. '30.95 SDPERMAN '39.95 



Microsoft Basic 
$69.95 
Donkey Kong 

$37.95 

Pole Position 

$39.95 



PRINTERS 

OKI DATA 

92 SMS 

STAR 

GEMINI10 S295 

GEMINI 15 *fl4fl 



EPSON 

I RX-80 CALL 

RX-80FT CALL 

Fx-80 CALL 

Fx-100; CALL 



Ape Face 

Printer 

Interface 

$79.95 



Koala 
Pad 

$68 



MODEM 

I Hayes 

Ismart «20a.95 

Smart 1200 ^534.95 



RANA 

DISH DNue 

$GALL 



Smith Corona ^^^^^^^^^ 

I TP2 SflflS I SS/SD|10|«17.50SS/OD|IO|S2(1 



RAIVI 
BOARDS 

48K $81 

64K $98 

Clock »29.95 




In Home Key 
Board for 400 

$54.95 



IVIONITORS 

AMDEK(30G| ^154.95 | 

COLOR I 

GORILLA 



WICO 

The BossM4.95joystickM9.95| 

Famous Red Ball ^25.95 [ 

Track Ball (39.95 1 



$799 



ea. 



COMPUTER COVER 



Features heavy duly canvas 
with vinyl interior ■ wnterfyrool. 

A!ARI 800 *7.M 

AiARi an) 17.99 

EPSON MX 80 17.99 

EPSON MX aoFI 17,99 

OK IDA I A I.J8:>A 17.99 



«e>^"- 



Surge Protector . 

4 ouTin W.BS I 

6 OUTLET $82.95 1 



We carry a large selection of Atari software, call for FREE catalog with order 
...or send $1 (refundable with order) UPS shipping 3% for hardware and 

$3 for software. N.J. resident add 6% sales tax. 



VISA 



PRICES SUBJECT TO CHANGE WITHOUT NOTICE. 



Hotel Atari, Epson, IBM and OKidata are regJsterBil trademarhs. ] 



MASTER CARD OR VISA ADD 3% 
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8t0 POWER! 
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FORMATTER 



The CHIP"' with Archiver SoUware allows: 

Aulomalic Back-ups of any Disk Program. Easy enough for a beginner lo use. 
Also includes Sector Editor. Disassembler, Mapper, and Custom Formatter- 
All llnis for only $99^5 plus shipping 

Happy owners? 

Update your Happy 810 Enhancement now v/ith ARCHIVER/EDITOR Software. 
Supports multiple drives and makes your Happy drive compatible with the CHIP! 
Jusl $3995 plus shipping 

Visa & MasterCard or C.O.D. call now* {81 5)229-2999 for immediate shipment 
or send check or M.O. to: 



^AlGHTY BYTE COMPUTER 

828 Green Meadow Ave.. Dept. AG 
Rockford, Illinois 61107 



For Technical Support 
and Drive Service 
Call 7pm-11pm CST 



Thank Vou (or making our 1983 an Outstanding Success! 



SPIDER PAC 

pat. pend. 

DOES IT ALL I 




O 



One SPIDER PAC takes the place of 5 transformers, a surge 
protector, a five stage noise suppressor, and up to 2 power 
strips! On one side there are 5 filtered low voltage outlets that 
supply power to all of your Atari®9VAC components (400, 
800, 1200XL, disc drives, 850 interface, 1010 recorder, etc.). 
On the other side you have three filtered 115 VAC outlets 
for monitors, printers or whatever. 

IMPROVED, now handles several disk drives at a time and 
with the new XL-DAPTOR you can power up the just intro- 
duced 600-1 400XL series. 

• Provides a centralized power source for all of your 
components. 

• Compatible with the Rana®and Trak®disc drives. 

• Five 4 ft. long detachable low voltage cords are included. 

• Avoids potential fire and electrical shock hazards assoc- 
iated with overloading extension cord devices with too 
many transformers. 

• Protects your hardware/software investments with spike 
suppression and noise filtration (Five stage EMI & RFI). 

• 15 amp. circuit breaker. 

• Makes your Atari®system more versatile and portable. 

• Great for schools — daisy chain up to 4 SPIDER PACS 
in a row (you can run up to 29 components with this 
configuration). 

• Illuminated on/off switch. 

• All low voltage outlets are individually isolated. 

• A retail price very competitive with power conditioners 
that don't provide the added feature of low voltage 
outlets. 

SPIDER PAC-MODEL # SP-1 B $134.95 

SPIDER PAC JR.-MODEL#SP-JRB $107.95 

(Same as SP-1 except without filters and circuit breaker) 

XL-DAPTOR-MODEL # XL-D B $24.95 

(needed only for the new 600XL, 800XL, and 1400XL 
series of computers). 

Check with your local dealer or order factory direct. 

Use your MC or Visa by calling our order lines, 24 hours a day. 
AZ residents must pay 6% Sales Tax. Free Postage & Handling 
in Cont. U.S., add $3.95 for outside Cont. U.S- 



Continental U.S.A. 
Alaska & Hawaii 



P.R., & V.I. 1-800-824-7888 
1-800 824-7919 
Ask for Operator No. 93 



or send a certified check or money order to Compu-Tech, 
Dept. R, P.O. Box 5058, Glendale, AZ 85306 



COMPU-TECH Corporation Headquarters 

12033 N. 60th Ave. 

Glendale, AZ 85304 (602) 979-2100 

Atari is a registered trademark of Warner Communications, Inc. 
Trak is a registered trademark of microcomputer corporation. 
Rana is a registered trademark of Rana Systems. 



COMPUTER 
PALACE 




, Koala Pad 



From 
Koala 
Tech. 




The future ' 

is here... 

Input your 

commands with the • Super Graphics 

touch of a finger on j, Drawing 

your Koala Pad. Program 

Retail $100 00 Included with 



$87.00 



Plus Freighl 



Pad. 




Over 1000 Items Jll 
For Your Atari! ^f^\ 



We Know ATARI 

Computers... Call 

Us For The Latest 

Info: (503)683-5361 



DUST 
COVERS 



Made from durable brown vinyl & 
custom fitted for: 

• ATARI 400. 800. 600XL. 1200XL Computeis 

• ATARI 410 Recorder. 810 Dish Drive 

• EPSON MX-80 or FX-80 Printers 



$8.95 



EACH Please specify which model 



FREE 
Catalog 

With any order, or 
send $1 (refundable 
with purchase). Send lis 
youi name & address for 
FREE QUARTERLY 
FLYERS with SPECIALS! 

Over 1000 items 
for your Atari. . . 

• fvlosaic • Percom 

• Broderbund • APX 

• Roklan • Dalasoll 

• Synapse • A I 

• On-Line •Alan 

• Hayes • Epson 

• Visicalc • Ivlore' 




ATR-8000 ^r' 



Use Your 
Credit Cards! 

We honor VISA. 
American Express. 
& MasterCard. 

24 & 48 Hour 

Shipping Is 
Available... CALL! 




• Run CP/M on your Atari • VznM prinlet port 

• Printer spooler • Serial pod • DO controller 

Plus Freighl 

16K model 299.00 

64K model (for CP/M) 499.00 

2-DDDS Drives (fo> S4k model) 695.00 

Ape-Face 

Parallel 
_^^. Printer 

$89.50 ^^^W Interface 





CONSTRUCTION SET 

48K 
T>^ // t/ DIsK 

New f''«'^^/X'' $35.10 
Electronic Arts ' ' ^ 

• Design the pinball game of ycuf dreams, or play one of 
five games on the dislil Share your games vrith friends! 

ALSO FROM ELECTRONIC ARTS... 

M.U.L.E (D) 35.10 

Hard Hat Mack (D) 31.50 

Archon (D) 35.10 

Axis Assassin (D) 31.50 

Murder on the Zinderneuf (D) 35.10 

Worms (D) 31.50 

ALi-TIME FAVORITES 

Star Raiders(C) 38.20 

Eastern Front (D.T) 29.95 

Pacman (C) 39.50 

Temple of Apshi {D.T} 35.10 

2ork I, II, or III (D) each 35.10 

Centipede (C) 39.50 

Missle Command (C) 29.70 

Shamus (D,T) 31.50 

Ghost Hunter (D) 34.95 

Ghost Hunter (T) 29.95 

TOP-TEN PROGRAMS 

Pole Position (C) 44.90' 

Donkey Kong (C) 44.90 

Blue Max (D.T) 31,50 

Baseball (D.T) 28.90 

Pmbali Construction Set (48K. Disk). . . 35.10 

Football (D.T) 28.90 

Monkey Wrench II (noiaEamei(C) 54 00 

Ultima II (D) 52.50 

Archon (0) 35.10 

Dig Dug (C) 44.90 




This is one of tfie Most Versatile data-base 
programs available for business or home use! 



From HOYAL SOFTWARE 
48K Disli only 



5(?^rpLuO 




$54.00 



Much More Than A Mailing List! 



Maintain Your Book Library 
Organize Your Record Collection 
Keep Track 01 Your Recipies 
Are You A Stamp Collector? 

Let Super Mailer Plus keep track of 

all these arid more! 



Dealer Inquiries Invited 

Our Price 

$49.95 



Vou can accomplish this and mote because oi Ihe 
"User Re-defioeable fields"! Ihe program has many 
other features Mulliple Search- Special Code Field- 
Smgle/or/ Double Density Operation- Create Subhles- 
AutiMlelele-Prmt Labels \/2/ai 3up -Print File 
Copy -Merge/Search/Sorl -Built in Oflicial PosI Odice 
State Abbreviations-More 



Monkey 
Wrench II 

A cartridge for the right-hand 
Slot of your Atari 800! 

This IS a BASIC & Machine- language 
Programmers Aid lor ihe 800 II plugs inlo Ihe 
right slol. and works wilh Alan BASIC lo add 16 
new direcl-'Tiode commandsdnci Aulo line 
numbering Deleie Imes. RenumDer BASIC. Hex- 
Dec conv , Find string. Move lines. Exchange 
siring. Disk direclory (rom BASIC, Mem lesl. 
More ) Also includes a monitor with 1 5 
commands to inleract wi!h the 6502 This has 
been proven lo be a very helpful IcxJl when wntino 
your own programs' 



4SK Disk 



rLlunT FromSublogic 

SIMULATOR II $44.90 




Colorful, scrolling graphics-Full instrumentation 

The urogram includes a World War I "Air-Ace" battle game, too! 



ULTIMA Ill/Exodus 
$49.50 




From Origin Systems 

Here is the latest 
in the famous series 
of fantasy/role- 
playing adventure games. 



SUPER SPECIALS-UP TO 60% OFF! 



s 



CQMPUTEH 
MLME 




HARDWARE 

Astra 1620 Disk Drive 529.00 

Micromainframe Disk Drive 499.00 

Rana 1000 Disk Drive 349.00 

Trak A2-D2 Disk Drive 398.00 

Super-5 Printer 329.00 

Panasonic Monitor(Gin/scin, w/soijn())199.00 

SOnWARE 

Archon (D.T) 35.10 

Joust (C) 44.90 

Robotron (C) 39.50 

Microsoft Basic 11 (D) 79.10 

Diskey Utility (D) 44.90 

Quasimodo (D,T) 31.50 

IVlurder on the Zinderneuf (D) 35.10 

Blue Max (D,T) 31.50 

Odessa Chess (D) 59.50 

Pharoah's Pyramid (D) 31.50 

Rally Speedway (C) 44.90 

Ultima II (D) 52.50 

Ulhma Ill/Exodus (D) 49.50 

Tax Advantage (D)(Not a game) 59.95 



OPEN Monday -Saturday, 9 to 6 

21 60 W. 11 th Avenue Eugene, Oregon 97402 




USE YOU CREDIT CARD & CALL TOLL-FREE 1-800452-8013 

You Never Pay Extra To Use You Credit Card At Computer Palace! 

Our Toil-Free Number Is For ORDERS ONLY. PLEASE! Call 503-683-5361 for info. 

Shipping Note: UPS & Parcel Post, Add $2.00-UPS Blue Label (Air), Add $3.90-Hardv(are and Paper Supplies are 
Extra-Call for exact cost on your order. 24 & 48 hour shipping available-Call 503-683-5361 for information. 
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SOLID STATES 

A 30 OBJECT PLOTTING SYSTEM 



24K Cassette or 32K Disk 



by Tom Hudson 



Most people who are familiar with the Atari per- 
sonal computers will agree that their graphics are 
superior to any other computer in their price range. 
By using the Atari's high-resolution GRAPHICS 8 
mode, one can produce very respectable images on 
the video screen. Combine this ability with Atari 
1020 printer/plotter hard-copy, and you've got an 
excellent, low-cost graphics machine. 

This article presents a program which lets you 
show three-dimensional objects on the screen or 
print them out on a 1020 plotter. You can view the 
objects from any angle, with true perspective. If you 
like, object data can be stored on cassette or disk for 
future use. 

The basics of 3-D. 

In order to describe any object in our three- 
dimensional world, we must give at least three coor- 
dinates. These coordinates are usually labeled X 
(length), Y (width) and Z (height). This 3-D program 
is no exception. When you want to show an object, 
you must break it down into a number of points. 
Each point has its own set of X, Y and Z coordinates, 
which tells the computer where the point is located in 
space. 



In addition to the locations of the points, we must 
tell the computer how these points are connected to 
form the sides of the object. The final result will be a 
"wire-frame" graphic representation of the object 
(so called because the object looks like it is con- 
structed out of thin wires strung between the indi- 
vidual points of the object). Figure 1 shows the 
wire-frame representation of a pyramid. 
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The pyramid in Figure 1 is made up of five points 
(labeled 1-5) and eight lines. Let's see how we find 
the coordinates of the points of this pyramid. 

First we must draw a top view of the pyramid. A 
piece of graph paper is best for this. Draw two per- 
pendicular lines on the paper as in Figure 2. Label 
the horizontal line X, the vertical line Y and number 
the lines as shown. These will be the X and Y axes, the 
first two coordinates in the X-Y-Z group. 



lY 
I 

+ 

4 



+ 



-6-4-2-1-2 4 6 X 

— +4-f-H-l-^-4■+4^^-t-l-f~ 



+■ 



Figure 2. 

Next, draw the top view of the 3-D object and 
number each point where two or more lines inter- 
sect. Figure 3 shows the top view of our pyramid 
with its five points labeled. 



!Y 



— +-H 




iH- -hf +~ 



Figure 3. 

Now draw another set of axis lines and label the 
horizontal line X and the vertical line Z. This set of 
axes will be used to draw a side view of the object in 
order to get the height coordinate (Z) for each point. 
Figure 4 shows the X-Z axes with the side view of 
our pyramid. Note that points 2 and 5 are at the same 
location on the side view, as are points 3 and 4. This 
is because they have the same X and Z locations. 




■+4-t F l I I I I I I I t-f+— 
3,4 1 2,5 






Figure 4. 

Now that we've drawn our pyramid, we can write 
down the coordinates for each point. First let's find 
the coordinates for point 1 . 

To find the X coordinate, we can look at either 
Figure 3 or Figure 4. In either case, the X coordi- 
nate for point 1 is 0. 

To find the Y coordinate, we look at Figure 3 . The 
Y coordinate for point 1 is also 0. 

To find the Z coordinate, look at Figure 4. The Z 
coordinate for point 1 is 5. 

Repeat this procedure for the remaining four 
points in the pyramid and you should have a list that 
looks like Figure 5. 



POlliT 


« 


_X_ 






_Z_ 


1 




e 






5 


2 




4 






8 


3 




-4 






8 


4 




-4 




-4 


8 


5 




4 
Figure 


5. 




8 



After defining all the points, we're ready to tell the 
computer how to draw the pyramid. As stated ear- 
lier, this pyramid is made up of eight lines. In order to 
draw each line, the computer must know which two 
points make up the endpoints of the line. Figure 6 
shows the endpoints of the eight lines. 
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Figure 6. 


2 



With this information in hand, you're ready to 
enter it into the 3-D image program in Listing 1. 
Type in the program and check your typing with 
C:CHECK or D:CHECK2. When you're sure the 
program is correct, RUN it. 

What a view. 

When the 3-D object plot program is executed, the 
computer will ask you several questions. 

1 . DMA OFF? If you answer Y, the computer 
will turn off the screen while performing the 
complex 3-D math. This will speed up the pro- 
gram considerably. If you don't care about 
speed, type N. 

2. OUTPUT TO PLOTTER? If you own 
an Atari 1020 plotter and would like hard-copy 
of your 3-D objects, ready your plotter and 
answer Y to this question. Otherwise, answer N. 

3. FILE OR KEYBOARD INPUT? Type 
an F or a K depending on your choice. 

4. If you want a file input (F), the computer 
will ask for the name of a 3-D object file. If 
you're using the cassette, position your tape to 
the beginning of the 3-D file, press PLAY, type 
C: and press RETURN. For disk, respond 
D:FILENAME.EXT and press RETURN. The 
computer will load the desired 3-D object data 
and continue at step 6. 

5. If you want to define a new 3-D object (K), 
you will be asked how many points there are in 
the object. Our pyramid has 5 points. You will 
then be asked for the X,Y and Z coordinates of 
each point. For example, to enter the coordi- 
nates of point 2 of the pyramid, you would type 
4,4,0 and press RETURN. Next you will be 
asked how many lines there are in the object. 
Type this number and press RETURN. After 
this you must enter the endpoints of each line. 



Enter these point numbers as in Figure 6. 

Finally, you'll be asked if you'd like to save the 
object in a file. If you type Y, the computer will 
ask for a filename. For cassette, position your 
tape, press RECORD and PLAY, type C: and 
press RETURN. When the computer beeps, 
press RETURN again and the file will be saved. 
For disk, type D:FILENAME.EXT and press 
RETURN. 

6. You're now ready to look at the object. You 
will be asked: 

ENTER OBSERVER LOCATION 
X,Y,Z OR E FOR EDIT 

If you'd like to examine and/or change the 
object data, type E, press RETURN and go to 
step 8. Otherwise, type in the X, Y and Z coor- 
dinates of the point in space where your imagi- 
nary "eye" is located and press RETURN. A 
good observer location for our pyramid is 5,7,3. 
Next you will be asked: 

ENTER COORDINATES LOOKED 
AT X,Y,Z 

Now you should enter the X, Y, and Z coordi- 
nates of the place where you want to look. If, for 
example, you want to look at the center of our 
pyramid, you should type 0,0,2.5 and press 
RETURN. Finally, you'll be asked: 

ENTER ZOOM FACTOR 

The normal zoom factor is 1 . To enlarge the 
object image, type a larger number; to make the 
object smaller, enter a smaller number. 

7. At this point, the object will be drawn on 
your screen and on the plotter, if selected. 
When drawing is complete, a short tone will 
sound. Press START, SELECT, OPTION or the 
joystick #1 trigger to start a new plot at step 6. 

8. The EDIT section of the program has three 
options: PRINT the object data, EDIT POINTS 
or EDIT LINES. These options are self- 
prompting and similar to the original data entry 
procedure above. After editing, you may save 
the edited object data to a file, if desired, as in 
step 5. 

More complex objects. 

You can design and plot extremely complex 
objects with this image processor. The procedure is 
the same as the simple pyramid used in the above 
illustrations; there are just more points and lines 
involved. 

Figure 7 is the data for a futuristic 3-D space 
shuttle. Try entering this data into your computer 
and viewing it. 



PAGE 122 








/ 


\N/" 


^LUU 


P0INTS:44 










LINES:58 






POINT 


1 : 


-5.5 


-5.5 


8 




LINE 1: 


7 TC 


6 


POINT 


2: 


-8 


-1 


8 




LINE 2: 


6 TC 


29 


POINT 


3: 


-8 


3 


8 




LINE 3: 


29 TO 7 


POINT 


4: 


-16 


14 


8 




LINE 4: 


29 TO 35 


POINT 


5: 


-16 


17 


a 




LINE 5: 


35 TO 36 


POINT 


6: 


-5.5 


21 


8 




LINE 6: 


36 TO 37 


POINT 


7: 


8 


16 


2 


5 


LINE 7: 


37 TO 38 


POINT 


8: 


8 


8 


2 


5 


LINE 8: 


38 TO 28 


POINT 


9: 


-2.5 


8 


1 


25 


LINE 9: 


28 TO 29 


POINT 


18: 


-2.5 


-6.5 


1 


25 


LINE 18: 


6 TO 5 


POINT 


1 1 : 


8 


-7.5 


2 


5 


LINE 11: 


5 TO 4 


POINT 


12: 


-1.25 -2 


1 


5 


LINE 12: 


4 TO 3 


POINT 


13: 


-1.25 -7.5 


1 


5 


LINE 13: 


3 TO 2 


POINT 


14: 


-2.5 


18.5 


1 


25 


LINE 14: 


2 TO 1 


POINT 


15: 


-4.5 


22 


6 


5 


LINE 15: 


1 TO 6 


POINT 


16: 


-4.5 


18 


6 


5 


LINE 16: 


7 TO 8 


POINT 


17: 


-3.2 


13 


3 




LINE 17: 


8 TO 9 


POINT 


18: 


-2.5 


5.5 


1 


25 


LINE 18: 


9 TO 18 


POINT 


19: 


-4 


-6 


8 




LINE 19: 


18 


TO 1 


POINT 


28: 


-4 


-7.5 


8 




LINE 28: 


8 TO 26 


POINT 


21 : 


8 


-26 


e 




LINE 21- 


26 


TO 27 


POINT 


22: 


4 


-7.5 


8 




LINE 22. 


27 


TO 28 


POINT 


23: 


4 


-6 


8 




LINE 23 


38 


TO 31 


POINT 


24: 


1 .25 


-7.5 


1 


5 


LINE 24 


31 


TO 32 


POINT 


25: 


1.25 


-2 


1 


5 


LINE 25 


32 


TO 33 


POINT 


26: 


2.5 


8 


1 


25 


LINE 26 


33 


TO 34 


POINT 


27: 


2.5 


-6.5 


1 


25 


LINE 27 


34 


TO 38 


POINT 


28: 


5.5 


-5.5 


8 




LINE 28 


14 


TO 15 


POINT 


29: 


5.5 


21 


8 




LINE 29 


15 


TO 16 


POINT 


36: 


2.5 


18.5 


1 


25 


LINE 38 


16 


TO 17 


POINT 


31 : 


4.5 


22 


6 


5 


LINE 31 


17 


TO 18 


POINT 


32: 


4.5 


18 


6 


5 


LINE 32 


18 


TO 14 


POINT 


33: 


3.2 


13 


3 




LINE 33 


18 


TO 13 


POINT 


34: 


2.5 


5.5 


1 


25 


LINE 34 


13 


TO 12 


POINT 


35: 


16 


17 


8 




LINE 35 


12 


TO 9 


POINT 


36: 


16 


14 


e 




LINE 36 


12 


TO 8 


POINT 


37: 


8 


3 


8 




LINE 37 


13 


TO 11 


POINT 


38: 


8 


-1 


8 




LINE 38 


11 


TO 8 


POINT 


39: 


3.5 


-9.5 


8 


.25 


LINE 39 


8 TO 25 


POINT 


48: 


8.5 


-9.5 


2 




LINE 48 


25 


TO 26 


POINT 


41 : 


8.5 


-19 


8 


6 


LINE 41 


I 1 


TO 24 


POINT 


42: 


-8.5 


-9.5 


2 




LINE 42 


24 


TO 25 


POINT 


43: 


-3.5 


-9.5 


8 


25 


LINE 43 


27 


TO 24 


POINT 


44: 


-8.5 


-19 


8 


6 


LINE 44 


24 


TO 23 
















LINE 45 
LINE 46 


23 
22 


TO 22 
















TO 24 










y-^^ 






LINE 47 


13 


TO 19 










y^ \ 






LINE 48 


19 


TO 28 








--^ 


^ — \ 


- 




LINE 49 
LINE 58 
LINE 51 
LINE 52 


28 
11 
21 
28 


TO 13 




yi . ^^7 


TO 21 




-^ ^ 


TO 22 




' 


^^^_ 


H — ^ 


TO 21 










V 1 






LINE 53 


42 


TO 43 










^-\ / 






LINE 54 


43 


TO 44 










\. / 






LINE 55 


44 


TO 42 
















LINE 56 


39 


TO 48 
















LINE 57 
LINE 58 


48 
41 


TO 41 
















TO 39 



ISSUE 16 



Figure 7. 
Some suggested views for this shuttle are: 
0B5ERUER LOC. LOOKED AT ZOOH 
60,-60,40 0,0,0 1 




OBSERUERLOC. LOOKED AT ZOOH 

0,-45,6 0,0,0 1 




OBSERVER LOC. I:?"!^??.?! ??"!? 

1,0,500 0,0,0 4.5 




OBSERVER LOC. LOOKED AT ZOOH 

500,0,0 0,0,0 6 



Who gets the credit? 

To be honest, I can't take all the credit for this 
program. I got it from a Compucolor II computer 
bulletin board several years ago; the author was not 
credited. I modified the program to work on the 
Atari computers, added the editing, screen clipping, 
plotter output and file handling. 

Although the code has been heavily modified, the 
author may recognize the general structure, and is 
encouraged to let me know his or her name. I'll be 
glad to give credit where it is due. 

Attention, artists. 

I'd be interested in seeing some of the 3-D objects 
created by our readers with this program. Just send in 
a printout of your object's data along with your 
name, and you may see your work displayed in a 
future issue! D 



100 GRAPHICS 

lie ? " MKKItKKMMmilimCMMKItMKMmCICKWMK " 

120 ? "» 3-D IHAGE PLOT SVSTEH «" 

130 ? "* BY TOH HUDSON »" 

140 ? "« ANALOG COHPUTING tt 16 «" 

150 ? "KKKKMmCMICICltKKICMICmtKKIIKMKltKK" 

160 DIH A$C5).F$C20).D»MSC13,0$fl}.EG$ 

C2] , IN$ CD : EG$=CHR$ C27] : EG$ C2I =CHRS C7) 

170 KL=0 : KR=319 : YT=0 : YB=191 : 0FF=40000 

160 ? :? "DNA OFF";: INPUT DMAS: IF DHA$ 

<>"Y" AND DMA$<>"N" THEN 160 

ISO ? :? "OUTPUT TO PLOTTER"; : INPUT 0$ 

:IF 0S<>"V" AND OS<>"N" THEN 190 

200 IF 0$="N" THEN 220 

210 TRAP 190:CL0SE tt3:0PEN St3,8,0,"P": 

? lt3;EG$;"«H»HH«,-300»I":PC=0 

220 ? :? '^LE OR QEYBOARD INPUT"; :INP 

UT AS: IF AS="F" THEN 1100 

230 IF AS<>"K" THEN 220 

240 ? :? "HON HANY POINTS ARE THERE";: 

INPUT PS 

250 DIH XCPSJ,VCPSJ,ZCPSJ,PCPS,2J,WISC 

PSJ 

260 ? "ENTER X,Y,Z COORDINATES FOR EAC 

H POINT" 

270 FOR 1=1 TO PS:? "POINT ";I; :INPUT 

01 , Q2 , 03 : X CI) =Q1 : Y CI) =02 : Z CI) =03 : NEXT 

I 

2«0 ? :? "HOH HANY LINES ARE THERE"; :I 

NPUT LS:DIH LNCLS,1) 
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299 ? :? "MOM ENTER POIMT INFORMflTZON" 
380 ? "FOR EACH LIME." 

318 FOR 1=1 TO LS:? :? "LIME ";I:? "FR 
OM POINT"; JIMPUT 01 :LN tl,8) =01 :? " TO 

POINT"; :INPUT Ql:LNtI,l)=Ql :NEHT I 
328 ? :? "DO YOU NANT TO SAVE THIS OBJ 
ECT";: INPUT flS:IF fl5="V" THEN 1258 
338 IF ft$<>"N" THEN 328 

348 REM MKKKICMKKMKMKKMMKKMKMMMKKKKK 
358 REM # TIME FOR NEH PLOT « 
368 REM KKMKMMMKMKKKKMKKltKKKlClCKlCltKM 
378 ? :? "ENTER OBSERVER LOCATION X,Y, 
Z" 

388 ? "OR a FOR EDIT": TRAP 1348 
398 ZOOMrl 
488 INPUT OX,OY,OZ 

418 ? :? "ENTER COORDINATES LOOKED AT 
K Y Z" 

AZe'lRAP 4i9:IHPUT UX,UY,gZ 
438 ? :? "ENTER ZOOM FACTOR": TRAP 438: 
INPUT ZOOM: TRAP OFF 
448 X(03=yX:Yt83=UY:Z(8J=UZ 
458 D8=1:IF DMAS="Y" THEN POKE 559,0 
468 REM ICmcmCKKKlCMKMKKMMKMKMMlCMKMKM 
478 REM * CALCULATE PER5PECTIUE » 
488 REM KMKMKKKMKKKKKKKKMKKXMKKMICKK 

498 DX=UX-OX:OY=UY-OY:DZ=UZ-OZ 

588 U1=5QR(DX«DX+DY»DY+DZ»DZ3 :IF Ul=8 

THEN Ul=lE-86 

518 CX=DX/U1:CY=DY/U1:CZ=DZ/U1 

528 53=SQR(1-CZ»CZ3 : S2=S0R fl-CY»CYJ 

538 QX=0X+D8»CX : QY=0Y+D8#CY : QZ=0Z+D8«C 

Z 

548 FOR 1=8 TO PS : XW=X (13 : YM=Y CIJ :ZW=Z 

(13 :GOSUB 618: NEXT I 

558 FOR 1=8 TO PS: IF UIS(I3=0 THEN 578 

568 XM=X(I3 :YW=Y(I3 :ZW=Z(I3 :GOSUB 618: 

GOSUB 678 

578 NEXT I: GOTO 748 

588 REM MKKMICMKICKKKKKMKKMICMKMMKMMKK 

598 REM * IS THE POINT VISIBLE? » 
680 REM ICMKICItMMKKMIOtKKKKKKlCKMICMlCKKK 
618 VIS (13 =1 : yCX=XM-eX : UC Y = YW-OY : VCZ=Z 

w-oz 

628 IF DX»UCX+DY»VCY+DZ»VCZ>8 THEN RET 

URN 

638 UIS(I3=8:RETURN 

648 REM KKKKKKKKKKlCICKMlOCKMKMKKKldtKIC 

650 REM * MOM CALC PLOT COORDS « 

666 REM KICKMKKKMKKMMKKMKICMKKICKICICKMK 

678 K=D8/(UCX»CX+UCY»CY+yCZ»CZ3 

688 AX=OX+K»UCX : AY=OY+K»UCY : AZ=OZ+K«VC 

Z 

698 IF S3=8 THEN 720 

788 P (1, 13 = ( (AX-0X3»CY- {AY-QY3»CX3 /S3 

718 P(I,23=(AZ-QZ3/S3:RETURN 

728 P (1, 13 = ( (QX-AX3»CZ+ (AZ-OZ3*CX3 /S2 

738 P(I,23=(AY-OY3/S2:RETURN 

748 REM MKKKKKlCmCKKKKKIClCKmCKKKKKKKIC 
758 REM * SCALE THE IMAGE » 

768 HEM ICICMlClCKKKKlCMMKmCltKKKMKKKKMKK 

778 T=458»Z00M:F0R 1=8 TO PS 

788 P(I,13=P(I,13*T 

798 P(I,23=P(I,23»T 

808 NEXT I 

818 XAD=168-P(8,13 :YAD=96-P(8,23 :FOR I 

=1 TO PS:P(I,13=P(I,13+XAD:P(I,23=P(I, 

23+YAD:NEXT I 

828 REM KKKMKKMMKKKMKMKKKICICKMKKMICKK 

838 REM * NOM DRAW THE IMAGE! » 

848 REM MKKMKlCKMKKKldCKMKKMKlCKlCKMKMK 

858 GRAPHICS 24:SETC0L0R 2,8,8:C0L0R 1 

:TRAP OFF 

868 IF OS="Y" THEN ? B3; "M8, 8*D488, 8*0 

488 , 288»D8 , 288»08 , 8" 

878 FOR 1=1 TO LS : TU=UIS (LN (I, 83 3 +UIS ( 

LN(I,133:IF Ty=8 THEN 1818 

888 IF TU=2 THEN 980 

898 QT=8:ISAyE=I:IF VIS (LN (I , 03 3 =8 THE 

N Il=LN(l,e3 :I2=LN(I,13 :I=LN(I,83 :GOTO 

918 
988 I1=LM(I,13 :I2=LN(I,e3 :I=LN(I,13 
918 XT1=X(I13 :YT1=Y(I13 :ZT1=Z(I13 :XT2= 
X(I23 :YT2=Y(I23 :ZT2=Z(I23 :FV=0:FH=8 
928 XW= (XT1+XT23 /2 : YM= (YT1+YT23 /2 : ZW= ( 
ZT1*ZT23/2:G0SUB 610 



938 IF VIS(I3>8 THEN XT2=XM: YT2=YM: ZT2 

=ZU:GOTO 958 

948 XT1=XM:YT1=YW:ZT1=ZM 

958 QT=QT+l:IF QT<15 THEM 928 

968 XM=XT2:YW=YT2:ZW=ZT2: GOSUB 618 

978 GOSUB 678:P(I,13=P(I,13»T+XAD:P(I, 

23 =P (I, 23»T + YAD : VIS (13 =8 ! I=ISAVE 

988 X1=P(LN(I,83,13 : Yl=191-P (LN (I, 83 . 2 

3 :X2=P(LN(I,13,13 :Y2=191-P(LN(I,13,23 : 

GOSUB 1558 

998 IF OS="M" OR P0K=8 THEM 1818 

1888 ? »3;"M";X1«1.5;","; (191-Y13«1.5; 

"«D";XM»1.5;","; (191-YM3*! .5:PC=PC+1 

1810 NEXT I 

1828 IF PC>8 THEN ? »3; "H»HO, -308*1" :P 

C=0 

1838 FOR X=15 TO 8 STEP -1: SOUND 8,128 

18 X : NEXT K 
1846 IF PEEK (532793 =7 AND STRIG(83=1 T 
HEM 1848 

leSO GRAPHICS 0:? "LAST PARAMETERS:" 
1860 ? :? "OBSERVER: "; OX; ", "; OV; ", "; 
Z:? "yiEMPOIMT:";VX;",";VY;",";yZ:? "Z 
OOM:";ZOOM:GOTO 348 

1878 REM MMKMKKMKKKKKICIOCMKKKKKMMMMICK 

1880 REM * LOAD 3-D IMAGE FILE » 

1898 REM MmCMKXMKKMMKKMKKmCKMICKMKKXM 

1188 CLOSE ttl:? "ENTER FILENAME TO LOA 

D";:IMPUT FS:TRAP 1288:0PEM «1,4,0,F5: 

TRAP 1188 

1110 INPUT ttl, PS: DIM X(PS3,Y(PS3,Z(PS3 

,P(PS,23 ,yiS{PS3 

1120 FOR X=l TO PS:INPUT ttl, Ql : X (X3 =01 

:NEXT K 

1138 FOR X=l TO PS:INPUT ttl , 01 : Y (X3 =Q1 

SNEKT K 

il40 FOR X=l TO PS: INPUT ttl,Ql :Z (X3=(ll 

SNEXT K 

1150 INPUT ttl,LS:DIM LM(LS,13 

1168 FOR X=l TO LS:INPUT ttl , 01 : LN (X,83 

=Ql:INPUT ttl,01:LN(X,13=01:MEXT X 

1170 CLOSE ttl:TRAP 0FF:G0T0 348 

1180 ? :? "QFILE F8RMAT ERROR ■":G0T0 1 

210 

1190 ? :? "Ql/0 ERROR - ";PEEK(1953 :G0 

TO 1218 

1288 ? :? "CaCA N'T OP EN FILE?" 

1210 ? "PRESS IdilMIl": INPUT INS: RUN 

1220 REM KKKKKKKKKKKKKMKKMKKMKKKMKMX 

1238 REM » SAVE 3-D IMAGE FILE « 

1248 REM XKKMMMKMKKKMMltKXMMKMMMKKKMK 

1258 CLeSE ttl:? "ENTER FILENAME TO 5AV 

E";:INPUT F$:TRAP 1218:0PEN ttl,8,8,FS: 

TRAP 1198 

1268 ? ttl; PS 

1278 FOR X=l TO PS:? ttl;X(X3:NEXT X 

1288 FOR X=l TO PS:? ttl;Y(X3:MEXT X 

1298 FOR X=l TO PS:? ttl;Z(X3:NEXT X 

1300 ? ttl;LS:FOR X=l TO LS:? ttl;LN(X,8 

3:? ttl;LN(X,13 :MEXT X:GOTO 1178 

1318 REM xxxxxxxxxxxxxxxxxxxxxxxxxxx 

1320 REM » EDIT THE 3-D IMAGE DATA « 

1330 REM XXXXXXXXXXXXXXXXXXXXXXXXXXX 

1340 TRAP OFF:? :? "(^IIMT, 13)11 OR BUI 

T";:INPUT AS:IF AS="E" THEN 1410 

1358 IF AS="Q" THEN 348 

1368 IF AS<>"P" THEN 1348 

1370 TRAP 1348:LPRINT "POINTS :"; PS : LPR 

INT 

1388 FOR X=l TO PS:LPRINT "POINT ";X;" 

: ";X(X3 ,Y(X3,Z(X3 :NEXT X:LPRINT 

1398 LPRIMT "LINES :"; LS : LPRINT 

1480 FOR X=l TO LS: LPRINT "LINE ";X;": 

";LN(X,03;" TO ";LN(X,13 :MEXT X : LPRIN 
T :GOTO 1348 
1418 TRAP OFF:? :? "EDIT HOINT OR BINE 

OR gXIT"; :INPUT AS:IF AS="L" THEN 148 
8 
1420 IF AS="E" THEN 328 

1430 IF AS<>"P" THEN 1418 

1440 ? :? "ENTER POINTtt OR iaaULLJ"; : TR 
AP 1418: INPUT PT:IF PT>P5 OR PT<8 THEN 

1448 
1450 ? :? "X=";X(PT3,"Y=";Y(PT3,"Z=";Z 

(PT3 _____ 

1460 ? :? "ENTER NEM X,Y,Z OR laMimiJ" : 
TRAP 1410 
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1479 IMPUT Ql,Q2,Q3:KfPTJ=Ql:VCPTJ=Q2: 

ZCPT]=Q3:G0T0 1419 „,™.-.^ 

1489 ? :? "ENTER LINEtt OR laaUULJ"; :TRA 

P 1419: INPUT LN:IF LN>LS 9H LN <9 THEN 

1489 

1439 ? :? "FROH POINT :";LNCLN, 91 :? " 

TO P0INT:";LNCLN,1] ^^ 

1599 ? :? "ENTER NEH LINE POINTS OR US 

iiliaiTl " ; TROP 1418 

1519 ? "FROH POINT:"; : INPUT Q1:IF ai>P 

5 THEN 1519 

1529 LN(LN,9)=Q1 

1539 ? " TO POINT:"; : INPUT 01: IF 01>P 

S THEN 1538 

1549 LNCLN,1)=Q1:G0T0 1410 

1559 REM KmcMKumiKmtKitMKmcMMmcKicmtKW 

1569 REH » GRAPHICS CLIP ROUTINE * 

1579 REH MMKKMKltMKMMKKMMlCltMMMKMlCMKMK 

1589 Ll=8 : L2=0 : Rl=9 : R2=9 : T1=0 : T2=8 : Bl= 

9 * B2— 9 * POK— 9 

1599 IF KKXL THEN L1=1:G0T0 1619 

1699 IF X1>XR THEN Rl=l 

1618 IF Y1>YB THEN B1=1:G0T0 1638 

1628 IF YKYT THEN Tl=l 

1638 IF X2<XL THEN L2=l:G0T0 1658 

1648 IF X2>XR THEN R2=l 

1658 IF Y2>YB THEN B2=1:G0T0 1678 

1668 IF V2<YT THEN T2=l 

1678 IF Ll+L2=2 OR Rl+R2=2 OR T1*T2=2 

OR Bl+B2=2 THEN RETURN 

1689 X3=Xl:Y3=Yl:X4=X2:Y4=Y2:G0SUB 173 

8 

1699 L1=L2:R1=R2:T1=T2:B1=B2 

1799 X1=XH: Y1=YH; X3=X2 : Y3=V2 : X4=X1 : V4= 

Yl:G6SUB 1738 

1718 IF XKXL eR X1>XR OR YKYT OR Yl> 

VB OR XH<XL OR XU>XR OR YH<YT OR YH>YB 

THEN RETURN 
1728 PLOT Xl,Yl:DRAUTO XH, YH:P0K=1 :RET 
URN 

1738 IF L1+T1+B11^R1=8 THEN Xi«=X3 : YH=:Y3 
: RETURN 

1749 IF LI THEN XltXL : YM=Y3+CY4-Y33»tX 
L-X3J/CX4-X33 :X3=XH:Y3=YH:IF Y3>=YT AN 
D Y3<=YB THEN RETURN 

1759 IF Rl THEN XH=XR : YltY3+CY4-Y3J*CX 
R-X3J/tX4-X3J :X3=Xll:Y3=YH:lF Y3>=YT AN 
D Y3<=YB THEN RETURN 

1769 IF Bl THEN YH=YB :XH=X3+ fX4-X3)«CY 
B-Y31/CY4-V3J :X3=XH:Y3=YII:IF X3>=XR AN 
D X3<=XL THEN RETURN 

1779 IF Tl THEN Yi4=YT :XH=X3+ CX4-X3)»CV 
T-Y3J/CY4-Y3> :X3=XH:Y3=YH 
1788 RETURN 



CHECKSUM DATA 
(See pp. 20-24.) 

109 DATA 884,171,93,688,49.183,281,21, 

19, 761, 786, 818, 646, 727, 345, 6456 

258 DATA 7,361,741,555,54,975,741,76,7 

36,358,148,364,589,623,747,7858 

499 DATA 684,758,994,746,634,492,366,6 

49,372,463,479,216,489,389,83,7715 

558 DATA 868,182,868,374,466,352,181,8 

44,719,364,318,378,435,571,581,7413 

799 DATA 848,937,854,936,366,889,372,9 

35,581,587,742,548,362,193,368,9518 

858 DATA 158,523,258,569,857,273,581,7 

27,815,679,764,189,918,17,713,7952 

1889 DATA 873,485,698,241,637,893,973, 

558,249,552,639,892,953,957,961,18463 

1159 DATA 713,132,178,273,397,595,386, 

551 , 382 , 553 , 792 , 526 , 491 , 494 , 497 , 6782 

1389 DATA 385,553,479,555,355,614,183, 

673,58,513,334,553,586,183,968,6984 

1459 DATA 81,478,859,659,899,355,534,1 

72,417,184,563,746,565,49,77,6558 

1699 DATA 825,36,833,89,832,55,848,626 

,913,636,528,958,894,177,945,9179 

1759 DATA 964,922,278,808,2964 
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GIVE YOUR KIDS 
A LESSON THEY'LL NEVER FORGET. 




When kids have fun and learn at the 
same time, they're more likely to remember 
more of what they've learned. What's more, 
when they associate the two together — 
learning becomes an enjoyable activity. So 
they'll do more of it. 

That's the basic principle behind the 
Learning Fun Series from EPYX. 

FUH WITH MUSIC. PARENTS TAKE NOTE. 

Fun with Music™ is designed to appeal 
to both you and your children. It comes with 
a songbook and has two modes of play. In 
the first mode, you can enter songs from the 
songbook — or compose your own. Then 




play the songs back, adding or removing 
notes and changing tempo or key. Your com- 
puter is like a musical instrument with 
memory, and you see every note of it dis- 
played on your screen. 

The second mode lets you play your 
song in a fun-filled action 
game. You control a drum 
major trying to touch the 
notes before a small but 
pesky poodle catches up 
to him and slows down 
the parade. 

Either way, Fun with 
Music gives you and your 
whole family the perfect 
mix of learning and play. 

FUN WITH ART. JUST PICTURE IT. 

Creating art on the video screen is one 
of the newest forms of "high-tech" play for 
kids. And adults, for that matter Plus there's 
nothing to clean up afterwards. 

Fun with Art"" uses the computer and 
joystick to transform your TV screen into 
an artist's canvas with astonishing results. 
128 colors, numerous brush strokes, all 
kinds of geometric shapes, and special fill-in 
and magnifying options are some of the 
24 different modes and features available to 
CTeate works of art never before possible. 

Fun with Art brings out the artist in 
you, no matter what your age! 

MORE LEARNING FUN ON THE WAY. 

These two are the first of an extensive 
series of Learning Fun games we have 
planned. Look for these, as well as other 
EPYX titles, wherever computer software 
is sold. 




LEARNING FUN SERIES. 





MAKE TRACKS TO | 
YOUR DEALER TODAY! 

ATARI 400/800/1200 CARTRIDGE 

'053-0171 $49.95 

If your dealer doesn't have Rally Speedway in 
stock, phone 1-800-327-7172 with your order, or 
write us at Adventure International. P.O. Box 3435. 
Longwood. FL 32750 for your FREE catalog. 

DEALER ORDERS WELCOME 



J 



COPYRIGHT 1983 



A.DIVISION OF SCOTT ADAMS. INI 



